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This  report  describes  an  automated  human  factors  data  collection  system 
for  imaging  devices  which  produce  composite  video.  Soma  of  the  types  of 
information  available  for  analysis  after  data  collection  are  shown  in 
Appendix  G.  The  system  replays  tapes  of  actual  sensor  video  or  from  any  other 
synthetic  source  onto  a  CRT  screen  to  allow  the  operator  to  react  according  to 
Individual  system  requirements.  In  general,  the  minimum  ground  truth  required 
for  each  composite  video  data  set  is  as  follows: 

1.  Range  IRIG  time  correlated  with  vldpo 

2.  Sensor  position  on  the  range  correlated  with  IRIG  time 

3.  All  target  positions  on  the  range  correlated  with  IRIG  time 

The  Fiber  Optic  Guided  Missile  (FOG-M)  program  Instigated  the  design  and 
development  of  this  system,  therefore  examples  will  be  used  that  relate 
directly  to  FOG-M. 

II.  MAN  MACHINE  INTERFACE 

The  man  machine  Interface  has  always  been  an  area  of  concern  for  systems 
where  work  load  is  operator  intensive.  In  systems  where  an  operator  is 
required  to  view  a  CRT  screen  to  locate  targets  some  form  of  hand  controller 
is  typically  used  for  designation.  Instead  of  using  a  "joystick"  or  track¬ 
ball,  a  touch  screen  was  used  in  this  system  to  minimize  the  operator  error 
and  to  "filter"  out  as  many  operator  differences  as  possible.  Two  different 
types  of  touch  screens  were  used  in  preliminary  operator  tests  and  both  are 
available  for  data  collection. 

The  first  type  of  touch  screen,  the  Elograph  Model  270,*  is  a  pressure 
sensitive  type  which  covers  the  CRT  screen.  This  touch  screen  allows  the 
operator  to  use  a  ball  point  pen  or  similar  stylus  or  his  finger  to  designate 
a  point  on  the  screen. 

The  second  type  of  touch  screen,  the  Science  Accessories  Corporation 
Model  GP-650,**  is  a  sonic  type  which  can  be  mounted  to  almost  anything.  With 
this  touch  screen  the  operator  uses  a  pen  to  designate  objects  in  the  active 
area  defined  by  an  L  frame  sensor.  The  L  frame  can  be  sized  for  the  applica¬ 
tion  at  the  factory  if  needed. 


1.  Biographies  Inc.  1976  Oak  Ridge  Turnpike,  Oak  Ridge,  Tennessee  37830, 

(615)  482-4038 

2.  Science  Accessories  Corp.  970  King's  Highway  West,  Southport,  Connecticut 
06490,  (203)  255-1526 
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Figure  2.  Target  types  in  the  FOG-M  data  set. 
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The  operator  station  shown  in  Figures  3  and  4  contains: 


1.  An  appropriate  CRT  display  with  attached  touch  screen. 

2.  Video  tape  player  for  the  video  source. 

3.  Computer  terminal  for  controlling  data  collection. 

4.  IR1G  time  translator. 

5.  Computer  interface  for  real  time  TRIG  time  transfer. 

6.  Dedicated  cueing  hardware  to  provide  operator  feedback  and  cuer 
testing. 
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Figure  4.  Operator  station  schematic. 

III.  DATA  COLLECTION 

Prior  to  beginning  a  data  collection  experiment,  the  operators  should  be 
given  a  standard  briefing  and  allowed  some  finite  amount  of  training  before 
actually  starting  the  experiment.  Specific  tasks  expected  of  the  operator 
should  be  carefully  defined  for  the  scenario  under  consideration.  In  the 
FOG-M  application  experiment,  video  Imagery  from  an  airborne  camera  flown  at 
speeds  and  altitudes  approximating  the  FOG  missile  trajectory  was  used  to 
assess  the  ability  of  operators  to  find  military  targets  such  as  tanks, 
trucks,  jeeps  and  armored  personnel  carriers  (APC),  situated  at  various  loca¬ 
tions  on  the  test  ranges  at  Redstone  Arsenal.  Military  and  civilian  personnel 
were  selected  to  serve  as  the  system  operators.  After  a  formal  briefing  which 
included  descriptions  of  the  various  targets  and  the  techniques  to  be  used  to 
designate  the  targets,  each  individual  was  placed  at  the  operator  station  for 
familiarization  with  the  video  imagery,  touch  screen  and  the  menu  board. 
Operators  were  instructed  to  observe  the  display  and  touch  the  screen  with  the 
probe  when  (1)  they  discovered  what  might  be  a  target,  and  (2)  when  they 
detected  it  to  be  an  actual  target.  When  the  operators  recognized  the  target 
class  (tank,  truck,  etc.),  they  touched  the  appropriate  menu  area.  If  they 
were  able  to  identify  the  type  of  tank  (M60,  M48,  M551)  or  APC  (Ml 13  or  Lance 
carrier),  the  menu  was  again  used.  A  reset  area  on  the  menu  was  also 
available  for  error  corrections.  For  each  operator  response  the  following 
information  was  stored: 

1.  Touch  screen  x  coordinate 

2.  Touch  screen  y  coordinate 


3.  IRIG  time  of  the  designation 


4.  Customized  menu  designation 

Appendix  A  contains  a  listing  of  the  data  collection  program  used  for  the 
FOG-M  operator.  All  responses  from  each  operator  are  stored,  separately  in 
individual  files  on  a  mass  storage  hard  disk.  From  this  information  and  a 
knowledge  of  the  ground  truth,  the  operators  were  scored  on  their  ability  to 
detect,  recognize,  and  identify  these  targets. 

IV.  GROUND  TRUTH  GENERATION 

The  composite  video  was  played  back  and  individual  targets  were  tracked 
with  a  video  tracker  in  real  time  for  ground  truth  generation.  A  program 
listing  for  the  ground  truth  data  collection  program  is  in  Appendix  C.  A 
hardware  description  of  the  tracker  interface  to  the  computer  is  described  in 
Appendix  F.  Each  target  ground  fruth  file  is  combined  with  the  other  target 
ground  truths  for  an  individual  sequence  on  the  analog  tape.  Some  editing  or 
additional  ground  truth  was  required  on  video  sequences  with  large  image  move¬ 
ment.  Each  sequence  of  combined  ground  truth  was  then  played  back  with  ground 
truth  cues  around  all  targets  to  evaluate  ground  truth  completeness  using  the 
program  in  Appendix  D.  The  picture  in  Figure  5  shows  an  output  of  several 
cues  displayed  during  the  running  of  the  program  in  Appendix  D.  All  ground 
truth  sequences  are  then  sorted  into  one  file  for  use  by  the  data  reduction 
program. 

An  alternate  method  for  ground  truth  generation  is  to  judiciously  digi¬ 
tize  the  analog  data,  and  on  each  frame,  or  every  few  frames,  and  where  the 
target  is  virtually  stationary,  use  those  coordinates  for  that  specific  IRIG 
time.  This  later  process  is  clearly  more  time  consuming,  but  in  video  scenes 
where  large  accelerations  and  jerks  are  prevalent,  perhaps  it  is  the  better 
method. 

V.  DATA  REDUCTION  AND  ANALYSIS 

To  make  the  analysis  as  significant  as  possible  and  to  minimize  the  sta¬ 
tistical  error,  as  many  samples  (i.e.,  operators)  as  can  be  generated  should 
be  used  for  the  data  collection.  All  individual  operator  results  were  combined 
into  one  file  for  input  to  the  data  reduction  program.  Optionally,  and  in 
addition,  after  each  operator  data  run  was  completed,  the  data  reduction 
program  can  be  run  to  show  the  individual  operator  results.  Appendix  B  con¬ 
tains  the  FOG-H  data  reduction  program  listing.  The  aircraft  position  as 
obtained  from  Mini-Ranger*  data  and  surveyed  target  locations  were  used  by  the 
data  reduction  program  to  calculate  range  to  target,  depression  angles,  etc. 
This  information  was  then  correlated  with  the  seeker  or  camera  video  through 
the  common  IRIG  time  recording.  Appendix  G  shows  the  FOG-M  results  over  the 
entire  combined  data  set  including  all  altitudes  and  flight  directions.  More 
specific  plots  and  printouts  of  the  individual  altitude  runs  and  grouped  data 
runs  have  provided  more  detailed  information,  and  clearly  this  type  of 


*Mini-Ranger  is  a  trademark  of  Motorola,  Inc.,  Government  Electronics 
Division,  Scottsdale,  Arizona  85257. 


Figure  5.  Picture  of  output  of  several  cues  displayed  during  the  running  of 
the  program  presented  in  Appendix  D. 


grouping  for  each  specific  system  type  will  be  needed  to  provide  the  detailed 
results  needed.  For  complete  FOG-M  final  data  reduction  and  analysis  results 
see  Reference  1. 

VI.  CUEING  HARDWARE  AND  EVALUATING  CUEING  SYSTEM  PERFORMANCE 

The  cueing  hardware  is  capable  of  generating  up  to  ten  simultaneous  cues. 
Each  cue  is  in  the  form  of  a  box  with  each  side  independently  positioned  by 
the  computer  to  any  point  on  the  screen.  The  screen  resolution  for  the  cues 
is  256  by  256.  The  intensity  of  the  first  four  cues  can  be  varied  and  the 
number  one  cue  can  be  optionally  "blinked.” 


The  cueing  hardware  adds  the  additional  capability  of  being  able  to  eva¬ 
luate  automatic  cuer  performance.  By  using  ground  truth  and  adding  false  cues 
to  simulate  the  known  performance  of  any  specific  automatic  cueing  system 
operator  performance  can  then  be  evaluated  versus  his  non-cued  performance. 
This  type  of  evaluation  will  provide  a  means  for  cost/performance  trade  offs. 
Appendix  E  shows  the  cueing  hardware  schematics  along  with  a  definition  of 
input/output  signals.  Appendix  F  shows  and  explains  the  computer  interface 
hardware  for  use  with  the  cueing  hardware,  tracker,  and  touch  screen. 

VII.  PLANNED  IMPROVEMENTS 

A  voice  recognition  unit  will  be  Included  in  the  system  to  augment  and 
perhaps  to  replace  the  menue  on  the  touch  screen.  The  intent  is  to  allow  the 
operator  to  speak  the  words  "tank,"  Jeep,"  APC,"  truck,"  or  "reset"  Instead  of 
having  to  look  at  and  touch  the  menu  itself.  Also,  a  digital  tracker  will  be 
Included  to  help  in  ground  truth  generation. 

VIII.  CONCLUSIONS 

An  automated  human  factors  analysis  system  for  imaging  data  has  been 
designed  and  fabricated.  The  equipment  and  computer  program  for  the  data 
reduction  and  analysis  have  been  tested  in  an  application  requiring  the  detec¬ 
tion,  recognition,  and  identification  of  military  targets  using  26  different 
operators  and  will  be  used  with  extended  data  sets  for  the  same  application. 
How  the  video  Imagery  is  collected  clearly  will  influence  whether  or  not 
operator  responses  have  any  significance  to  the  "REAL  WORLD."  Imagery 
collected  to  closely  simulate  true  system  parameters  is  obviously  desirable, 
along  with  all  available  ground  truth  for  the  data  set.  The  objective  of  this 
system  is  to  show  what  system  parameter  trade-offs  could  be  made  to  keep 
system  performance  at  some  desirable  level.  It  is  clear  that  analysis  of 
operator  responslvity  under  specific  conditions  can  lead  to  reasonable  system 
parameters  which  will  keep  overall  system  performance  as  high  as  possible. 


uuuuuuuuuuuuuuuuuuuuouuuuuu 


PROGRAM  FOG STATS 


THIS  PROGRAM  WILL  CCNCRATt  A  FOG-M  HUMAN  FACTORS  STATISTICAL  SATA 
SASE .  AN  OPERATOR  WILL  PERFORM  FOUR  FUNCTIONS  WHILE  REAL  WORLD  VIDEO 
IS  DISPLAYED  TO  HIM  TO  GENERATE  THIS  DATA. 


FUNCTION  1  -  OBJECT  DESIGNATION 

FUNCTION  2  -  TARGET  DETECTION  AND  DESIGNATION 

FUNCTION  S  -  TARGET  RECOGNITION 

FUNCTION  4  -  TARGET  IDENTIFICATION 

ECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


THIS  PROGRAM  WILL  DO  SOME  INITIALIZATION  THEN  WILL  RE  INTERRUPTED  WHEN 
EACH  TOUCH  SCREEN  OUTPUT  IS  GENERATED.  OTHERWISE  IT  WILL  HI  IE  MUTE. 


IRIGI I )-FIR8T  1RIG  TINE  WORD 
1RIGI2>-SEC0ND  IRIG  TIME  WORD 
IRIGI 3 ) "THIRD  IRIG  TINE  WORD 

IRIGI 41-GATE  SIZES  OF  THE  TRACK  SATE  ITOP  AND  BOTTOM) 
IRI6(S>-GATE  SIZES  OF  THE  TRACK  GATE  I  LEFT  AND  RIGHT) 

IRIGID-U  SITS  THAT  CONTAIN  THE  X  AND  V  POSITION  OF  THE  CURSOR 

BOXES! 4*)  IS  THE  ARRAY  THAT  CONTAINS  THE  ID  SOX  POSITIONS 
LEFT.RI6HT.UP  AND  DOWH<—  IN  THAT  ORDER 


EXTERNAL  lOG-READVBLK.IOSLWRITEVBLK.IONMJNOECHO 
DOODLE  PRECISION  OUAO 

INTEGER  SVSSWAITFR.SVSSIINTIN.SVSSHIDER.SVSSASCTIM 
INTEGER*!  IRIGI I), IV<2).HD.TD,UD.TH,UH.TM.UM.TSI .TS2.NS.LS.NS 
BYTE  X. Y.XVI2). TOP. BOTTOM. LEFT. RIGHT. TSI 2). LRI2) 

INTEGER*!  IOSII 4 > .ILINKM, ISAVEI 2 > .TEMPP 

INTEGER  SVSMIOW.  SVSSASS IGN .  SVSSOIO.  SVSGLKWSET .  RUN 

INTEGER  INLOCKI 2 ) . IOLOCKI 2 ) , XRCHAN . ITCHAN . TBCHAN 

CHARACTER* IS  TIME *23, NAME*SD.RUNN*2, FRAME* IS 

INTEGER*!  SOXESI 4D), IDAV 

CHARACTER* IS  STRING 

COMNON/STRNC/STR I NG 

COMMON/CHAN/ ITCHAN . XRCHAN , TBCHAN 

COMMON/COORD/X1 . VI . IQIOF 

COMMON/ 1RIGT/IRIG 

COHMON/HMSEC/IH, IN, SEC 

COMMON/BOX/BOXES 

COMMOH/FLAGS/IORIGIN, IMAXV 

COMMON/D  INIT/XD,  VO.  XOR1GIN.VORIGIR 

EQUIVALENCE! XVI I >,X ) .(XV! 2). V ). I IRIGI S). XVI I ) ) 

EQUIVALENCE! TSI I ) .BOTTOM >. I TSI 2 ) .TOP ). I IRIGI S ) .TBt 1 1 ) 
EQUIVALENCE! LRI 1), LEFT), I LRI 2  > .RIGHT  > . I IRIGI  4 ) .LRI I > ) 
EQUIVALENCE! IRIG2. IRIGI 2 ) ) 

TIME-'  • 

I STATUS-SVSSASS IGNI ’XRAD* .XRCHAN. , > 

IFI .NOT. (STATUS )TVPE  *,'  ERROR  IN  KRAI  CHANNEL  ASSIGN' 


58558531558 


ISTATOS-STSBASSIMI  'TTM'  .TBCNAN, .  I 

IF! .NOT.  I STATUS  ITTFE  *,'  I  MM  IN  TTM  CHANNEL  ASS  I  CM' 

IfUI'l 

INLOCK!  I  >«SLOC!  BOXES!  I  >  > 

INLOCKItl-SLOCI  HIIII  Ml  I 
K-SVSULKWSET!  INLOCK ,  IOLOCK.  I 

IF! .NOT.KITYFE  MAUI  TO  LOCK  HIM  I/O  BUFFER' 

i  block  i  t  i-sloci  laiBu  1 1 

I BLOCK!  t  >*SLOC!  IR IB! S 1 1 
K-SVSULKWSET!  I  BLOCK.  IOLOCK,  I 

IF!. NOT.KITYFE  MAOLC  TO  LOCK  tRIS  I/O  BUFFER* 

I  BLOCK!  1  )*XLOCI  STRUM  I  Hill 
I BLOCK! t I -BLOC ( STR I BC( I B i I B I I 
K*SVSSLKVSETi I BLOCK, IOLOCK, ) 

IFI.BOT.KITVFE  UNABLE  TO  LOCK  IRIC  I/O  BUFFER' 
OFKN!MIT*S.NAME-"rT‘  .STATVS-'OLB*  I 

TTFE  *.'  INTER  VIDEO  TAFE  HUMBER  BEINC  VIEWED! TAFE  1  OR  »' 

READ!B.BB)IV1DE0T 

FORMAT! II I 

OFEBIMIT-It.BAME-'OFIRATOR.FOC'  .TVFB-'NBW' » 

WRITE! it. BSIIVIDSOT 

FORMAT! IK. 'TAFE  HUMBER  '.II.'  FOR-M  OFERATOR  BATA  FOLLOWS' ) 
K-SVSSASCTIM! .TIME. . . I 

TTFE  *,'  TEST  THE  TOUCH  SCREEN  FM  I/O  ENABLED . 

K  -  SVSDOIOW! SVAL! I I.SVALITBCMAN). 

SSVAL! HOC!  tOS-REAOVBLK)  .OR .SLOCI  lOBMJMECNOI  I . 

IIOSR. . .DATA, SVAL! Ill, ...  I 

TTFE  TOUCH  SCREEN  BOW  READS  FM  OFERATM  INFUT.  * , 

1 '  IS  IRIC  UNIT  IB  TRANSLATES!' 

XMICIN-B.B 
XMICIN-S.St 
VORICIN-4.N7 
XS-2D.4S 
VS-24.D 
XO-XS-XMICIN 
VO-VS-VMICIN 
CALL  UIO 
CONTINUE 
K-SVSSHIBERI I 
SO  TO  1 
END 

SUBROUTINE  UIO 
BTTE  C 

EXTERNAL  IOS_REAOVSLK.  lOSM_JIOECHO 
EXTERNAL  INFUT 

INTCCER  STSMSSICN , SVSMIOW,  ITCHAN , STSSOIO, XRCHAN 
INTECER  IOSLREADVBLK , IOUM_NOECMO , TSCHAN 
CHARACTER* IB  STRING 
BYTE  DATA! IB) 

INTECER*!  IOSBI4) 

EQUIVALENCE! DATA, STRING  I 
COHMOH/CHAH/ I TCHAD . XRCHAN .TIC NAN 
COMMON/D  INIT/XD.VB.XMICIN,  TOR  ICIN 
COMMON /STRNC/STR INC 
CONNOH/FLACS/IMICIR,  IMAXT 


DATA  tORIGIN/I/.IMAXY/l/ 

K  -  IVSMIO(  XVAL! S ) ,  XVAL  ( TIC  HAM  ) ,  XVAL! XLOC(  IO*_XIADVSLIC  ) ) .  loss 
IINPUT.C. 

*  DATA!  I  I.XVAL!  IS), ...  > 

RETURN 

END 

SUBROUTINE  INPUT(C) 

BYTE  C.XYtS) 

EXTERNAL  IOS_REAOVSLK,  IOSM_MOECHO,  IOSJMITEVBLK 
INTEGER  S  YSSOIOV. I TCHAN . XRCHAR . IOSM_NOECHO . SVSBSETIMR 
INTEGER  S VSSQIO . SVSSMAITFR , TSCHAN , SVSSB INTIN 
DOUBLE  PRECISION  QUAD 

INTEGER'S  IRI6(«>.IY(2>,H0.TD,UD,TH,UH,TM.UM,TS1.TS2,US.LS.MS 
INTEGER'S  I SAVE ( 2  > 

CHARACTER* IS  STRING. TINE'tB 
INTEGER'S  BOXES! U ) 

INTEGER'S  I ORB! 4) 

BYTE  BATA! IB) 

THESE  PARAMETERS  ARE  LARGER  THAN  THE  SCALE  FACTORS  SO  YOU  CAN 
SO  OUTSIBE  THE  RASTER  AREA  ALSO. 

COMMON/ IR1GT/ IRIS 

COHHON/CNAN/ I TCHAN . XRCHAN . TSCHAN 

COMHON/DINIT/XB.YD.XORIGIN.YORIGIN 

COMMON/COORB/X . Y.lOIOf 


COMMON/STRNC/ STRING 
COMMON/HMSEC/IN, IM.SEC 
COMMON/FLAGS/IOR1G1N. 1HAXV 
EOUI VALENCE (BATA, STRING) 

EOUIVALENCE! 1RIGI S ) . XV!  1 ) ) 

TYPE  *, '  ENTERING  AST  INTERRUPT  ROUTINE* 

IOIOF'1 

IBABV-0 


THIS  PROGRAM  REAB8  THE  TOUCH  SCREEN  BIGITIZER  PUTS  THE  CRT 
COORBIHATES  IN  COINION  /COORB/ 


K-SVSBOIOW! XVAL ( 4 ) , XV AL ( XRCHAN ) . XVAL ( XLOC ( ! OS-RIADVBLK ) ) . IOSB . , , 
I  IRIG! II. XVAL! 12 ),..,) 

lFI.NOT.KITVPC  '.*  ERROR  ON  SVSBOIO  READING  IRIG  TIME* 

IF!  IRIG!  S  OTHER 

IF! IBADV.EQ. I >60  TO  77S 

ISABV-1 

WtIT((S.IS7>X,V,IBAV. IH, IM.SEC 

FORMAT!  IX.  FG.  2.  IX,  FB.  2.  SX,  IB.*  »*,  IS,* » *,12.*  «*,  PS.  2. 

I*  INVALID  IRIG  FROM  VIDEO  TAPE’) 

GO  TO  77S 
ENBIF 

IF! IBADV.EQ. I (CALL  UIO 
HD'ISHFTI IRIG! 1 ),-12> 

TO*  I  AND!  ISHFT!  IRIG!  D.-BI.'F’X) 

UD- 1 AND! ISHFT! IRIG! 1 ) , -4 ) , *  F  *  X I 


IBS 

IS7 

IBB 

IBB 

17* 

171 

172 

173 

174 

17S 

17S 

177 

17S 

17B 

IB* 

1S1 

1S2 

7** 

1S3 

1S4 

IBS 

7*1 

IBB 

1 

1S7 

C 

IBB 

IB 

IBB 

IB* 

IB1 

1B2 

1B3 

1B4 

IBB 

IBB 

1B7 

IBS 

IBB 

2** 

2*1 

S3 

2*2 

in 

Z*4 

z*s 

2*4 

C 

2*7 

IB 

2*8 

2*8 

C 

21* 

C 

Zlt 

2N 

212 

213 

214 

Z1B 

SI 

zia 

217 

21B 

21S 

22* 

TO- IANS!  tlltlll,TII) 

BH- ISHFTI 1RI6I2I.-1Z) 

TM-IANOt ISHFTI IRIGI2>,-S), ’7'0i 
UN-IANOI  ISHFTI  IRICt  2 )  ,-S » ,  *F '  X  ) 

TS1-IANBI ISHFTI IRICt 21,-2), *7'0) 

I  SAVE!  I  )-IANO!  ISHFTI  IR1CI 2>.2  >. 'C'X) 

1 SAVE! 2  I-ISHFTt  IRIS! 3  )  ,-14) 

US-IORI ISAVE(1),1SAVEI2>) 

TS2-IANBI ISHFTI IRIC(3),-I*>,'F'X> 

IS- IANBI  ISHFTI  IRICI3),-B),  'F’XI 
NS-IAMI  ISHFTI  II1CI 3 >. -Z »,•  F * X > 

I BA V-1BV-N0* 1*-TD*UD 

1H-TN*1**NH 

INaTN*lftUN 

SEC-FLOAT! TSlal«*US I-FL0ATITS2 1/1*. -FLOAT! LS )/l«*. 

1 -FLOAT! MS )/!***. 

K-SVSSUA1TFRI SVALI • > ) 

IF!.NOT.K)TVFE-.‘  ERROR  ON  WAITER  IN  AtT  ROUTINE.  *•* 

BECONEI 14.7*1 ,STRtNC,ERR-77Z>X,T 
FORMAT! 1X.FS.2.ZX.FS.Z) 

CONTINUE 

WRITE! S, IS )X. V .XD .XORIGIH.YORICIN 

FORMAT! >  X-'.FB.Z,'  V-'.FS.Z.*  XO-'.FB.Z,'  XORICIN-' .FS.2, 

1*  VORISIN-' .FS.2) 

IFIX-XORIGlN.EQ.*.*)THEN 

*•».» 

NO  TO  S3 
SNOir 

IFIV-VORIStN.CQ.*.*>THEN 

»•*.* 

SO  TO  » 

ENB1F 

X-2B4./I I XB/IX-XORI6IN M ) 

V-242 . /I ! TO/! T-V0R18IN > > » 

CO  TO  ZS 

IFIV-VORlSlN.NC.S.*)TNEN 
V-242. /! ITS/! V-VORICIN 1 1 1 
ELSE 
V-*.* 

ENB1F 

WRITE! 4, 1 BIX. V.XB. XORICIN.  TOR ICIN 

FORMAT! •  X-* .Fl*.Z. '  V-*.F1*.Z,*  KN-'.FS.Z.*  XORICIH** .Ft.Z, 

1*  VORISIN-' .FI.ZI 

Z4i.-ZS3.-N.  WHICH  ARE  THE  MAX  X  ANN  MIN  X  VISIBLE  OF  THE  BOX 
Z41.-ZS3.-1Z.  WHICH  ARE  THE  MAX  V  ANN  MIN  T  VISIBLE  OF  THE  SOS 
1FIV.8T.ZS4. ITHEN 

IF! X.CE.BS. .ANB.X.LT. 1B7. (THEN 
WRITE! 1Z.B1 >X.V , IBAV. IH.IN.SEC 
WRITE! B, SI IX.T, IBAV . IH, IN.SEC 
FORMAT! 1X.FS.S.1X.FB.Z.SX.I3. • I ■ .IS. • I • , JZ. ■ i ’ .FS.Z. 

1'  TRUCK  RECOCHIT ION ‘ ) 

SO  TO  ZS 
EHBIF 

IF! X.CE . 1ST. .ANB.X.LT. 237. ITHEN 
WRITE! IZ.SZIR.V. IBAV. IN. IN.SEC 
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WRITEEC. C2IX.V, IDAV, IN. IH.SEC 
FORMATElX.FD.C.IX.FR.S.RX.lS.'t’.tE.’i'.IC.'t’.FS.* 
I*  JEEP  RECOCNITION ' ) 

CO  TO  2C 
IHDIF 

1FEX.CE.237. )THEH 
X-2CS. 

V-2DD. 

WRITE ( 12, S3 IX, V, IDAV, IH.IM, SEC 
WR ITE i C. S3  IX. V, IDAV, IH.IM, SEC 
FORMATE  1X.FR.2.1X.FR.2.CX.  12.  * »  M2.  *  I  ’.12. • « •  ,FC.2 
J.  •«••••«•  BESET  *■•«') 

CO  TO  2C 
CHDIF 

IF!  V.LT.3CC. I THEN 

IF( X.LT.27. ITHEH 
WRITE!  I2.SOX.V.IOAV,  IH.IM.SEC 
WRITEiS.SR)X,V, IDAV. IH.IM, SEC 
FORMATE lXtFC.2lIX,FC.2.BX,I3»'i',l2,<s',I2,,i,,FC.2 
I*  TANK  RECOCHITIOM' I 

CO  TO  2C 
EHOIF 

IF(X.CC.2T.  ,AMO.K.LT.S4.7)THEM 
WRITEE  12,Cf )X,V,IOAV,IN, IM.SEC 
WRITEE S.COX.V. IDAV.  IN,  IM.SEC 
FORNATilX.FR.2.1X,FS.2,CX,I3.‘i',I2.<i'.I2.‘i*.FS.2 
I’  AFC  RECOCNITION’ I 

CO  TO  2S 

EHOIF 

EHDIF 

IFEV.CE.3fC. .AND. V.LT.3C4)THEN 

IF E  X.LT.27. ITMCN 
WRITEE  12.  COX.  V.  IBAV.IH.IM.SEC 
WRITE! C.C4IX.V, IDAV. IH.IM, SEC 
FOEU4ATE  IX.FC.2.  IX.FR.E.CX.  IS.  ,l,,I2,,l,,I2,,i’  .Ft.  2 
1'  NCf  IDENTIFICATION’) 

CO  TO  2C 
EHDIF 

IFEX.CE.27. .AND.H.LT.C4.7ITHEH 
WRITEE 12. CD >X.V. IDAV. IH.IN.SEC 
WRITEEC. COX. V.  IDAV.  IH.IM. SEC 
FEMMATt  1X.FC.2.1X.FD.2.CX, IS. *  < ' , 12, * i * .12, ' t ' ,FS.2 
I*  M113  IDEHTIFICATIOH' > 

CO  TO  2C 

EHDIF 

EHDIF 

IFEV.EMt.3C4..AHD.V.LT.3DC.  ITHEH 
1FEX.LT.27. 7THEH 
WRITEE  12. COX.  V.  IDAV, IH.IM. SIC 
WRITEEC. COX.  V.  IDAV. IH.IM, SEC 
FORMATE IX.FC.2, IX.FD.2.CX, IS, • l ■ .12, • • • . 12. • I • .FC.2 
I*  M4C  IDEHTIFICATIOH’ ) 

SO  TO  2C 
EHDIF 

IFEX.CE.27. .AHD.X.LT.D4.7ITMEH 


WRITE! IS.SFIX.V.IOAV. IN, IN.SEC 
WRITEIS.BTIX.V.IBAV.tN.IN.SEC 

rotNATUi.ra.t.tx.ra.z.u.  ia.  •  i  M2,  •  i  M2.  •  t  •  .rt.t. 

t*  LANCE  CARRIER  IDENTIFICATION* I 
SO  TO  Si 
INDIF 
ENOIF 

ifiv.be. sbs.itncn 

IF! X.LT.27. )TNCN 

writiiis.boix.v.ioav.ih.ih.sec 

writeis.bbix.v.ioav.im.in.sec 

FOaiMTC  ll.FS.S.lX.Fa.S.BX.ia.  *  i  M2. ' t  M2,  •  i  •  ,F8.S. 

I'  MSS1  IDENTIFICATION*  I 
60  TO  26 
ENOIF 

IFIX.6E.27. .AN0.X.LT.f4.7>THEN 
WRITE I l2.a7)X,V, IDAV.IN.IN.tEC 
WRITE! f. *7 IX. V, IOAV . IN, IN.SEC 
LANCE  CARRIER  1R  A6AIN 

60  TO  26 

ENOIF 

ENOIF 

ENOIF 

writeiis.sbix.v.ioav.im.in.sec 

VRITEIS.SBIX.r.IDAV.IH.IN.SEC 

FORNATI IX. F8. 2. IX, F8. 2. ax. IS. ‘i MS. •  t  MS.*  i >,F6. 2. 

1*  OBJECT  OR  TAR6ET  DESIGNATION* » 

OOXESI I I-N 
BOXES! 2  l«N 
aoxEtiai-a 
BOXES! 4  1-N 
BOXES! t  I-X-l . 

IFIBOXESt SI.LT.N ISOXESI BI-1AND! BOXES! SI, *377*01 
IFIBOXEStSI.LT.llBOXESISI-I 
IF! BOXES! SI.BT.2B4 ISOXESI BI-2S4 
BOXES! 61-X-l. 

IF! BOXES! B  > . LT.NIBOXES! 6 I-1AND! BOXES! B I . *177 ‘01 
IF I SOXESI B  > . 6T. 2B4 ISOXESI B I-2S4 
BOXES! 7  l-V-1 • 

IFIBOXESt 7 1. LT.NIBOXES! 7 I-1ANDIB0XES! 71,  *377*0) 

IF! BOXES! 7 ) .LT. I ISOXESI 7 1-1 
IF! BOXES! 7 1 .6T .242 ISOXESI 7 1-242 
BOXES! S !-¥♦!. 

IF!  BOXES!  B I  .LT.irtSOXESI 8I-1ANBI BOXES! S I ,  *S77 *0) 

IF! BOXES! fl I.6T.242 IBOXESIB 1-242 

WRITEIB.INI 1 BOXES! B I. BOXES! B I, BOXES! 7 1, BOXES! B I 

FORMAT! IX. 41 2X. OBI  I 

K-SVSSWAITFR! XV All  4 1 1 

IF! .NOT.KITVFE-, '  ERROR  ON  WAITFR  IN  AST  ROUTINE.  *4* 

K  •  SVSSOIOI XVAL! 4 ) . XVAL ( XRCNAN I .XVALI XLOC! IOSUWRITEVBLK 1 1 

1 IOSB , , , BOXES! 1 1 . XVAl I  BN I . . , , I 

CONTINUE 

CALL  UIO 

RETURN 

TVFE  -,*  ERROR  IN  DECOBE  OF  THE  BI6ITIZER  OUTFBT* 


APPENDIX  B 


FOG-M  DATA  REDUCTION  PROGRAM  LISTING 


*  VV  '.^  .*. "'‘V 


'^T?  .V-, 


THIS  PROGRAM  MADS  THE  C .ATVS1  OPERATOR. TOT  PELS  WHICH  IS  THC 
CONCATENATED  OPERATOR. FOG  FILES. 


THE  MINI. OAT  FILE  CONTAINS  ALL  THE  A TVS  MINIRANGER  DATA  FOR 
SEQUENCE  I  THROUGH  SEQUENCE  ID. 


THE  GROUND. FFF  FILE  CONTAINS  ALL  THE  GROUND  TRUTH  TO  DATE  ON  THE 
EIGHTEEN  SEQUENCES.  THIS  FILE  IS  SORTED  SV  TOTAL  IRIG. 


DEFORE  RUNNING  THIS  PROGRAM  THE  OPERATOR. TOT  FILE  NEEDS  TO  SE 
GENERATED  USING  THE  FOLLOWING  COMMAND  IF  IS  DOESN'T  ALREADY  EXISTl 


•APPEND  OPERATOR. FOGi*  OPERATOR. TOT 


THIS  PROGRAM  WILL  TAKE  THE  OPERATOR. TOT  DATA  FILE  AND  GENERATE 
MEAN  DELTA  T'S  AND  STANDARD  DEVIATIONS  BETWEEN! 


1.  -  OBJECT  DESIGNATION  AND  TARGET  DETECTION 

2.  -  TARGET  DETECTION  AND  TARGET  RECOGNITION 

S.  -  TARGET  RECOGNITION  AND  TARGET  IDENTIFICATION 


4.  -  OBJECT  DESIGNATION  RANGES  HISTOGRAM 
E.  -  TARGET  DETECTION  RANGES  HISTOGRAM 
E.  -  TARGET  RECOGNITION  RANGES  HISTOGRAM 
7.  -  TARGET  IDENTIFICATION  RANGES  HISTOGRAM 


NOTE  l 


4  THROUGH  7  CAN  ONLY  BE  OONE  ONE  AT  A  TINE  BY 
SELECTING  WITH  THE  SPECIFIC  CALL  TO  HIST2  BELOW. 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

PROGRAM  REDUCES 

LOGICAL*!  0BFLA6.0RFLAG.0IFLA6 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
REAL  HDELTAOI  4MD)  .HDELTARI4MW)  .NDELTAK  till) .HDELTAOI 4 Mtf) 

BYTE  ITANKIDI 4MN) ,  ITANKIRt  4IM )  ■  1 TANKI I  ( 4Mf ) 

C 

C  HDELTAO  IS  THE  DATA  ARRAY  FOR  THE  HISTOGRAM  OBJECT  DESIGNATION  RANGES 

C  HDELTAD  IS  THE  DATA  ARRAY  FOR  THE  HISTOGRAM  TARGET  DETECTION  RANGES 

C  HDELTAR  IS  THE  DATA  ARRAY  FOR  THE  HISTOGRAM  TARGET  RECOGNITION  RANGES 

C  HDELTAI  IS  THE  DATA  ARRAY  FOR  THE  HISTOGRAM  TARGET  IDENTIFICATION  RANGES 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

PARAMETER  ERRORMtN!*! . S  I ALLOWABLE  MINI  RANGER  TINE  DELTA  FOR  RANGE  CALCULATIONS 
PARAMETER  MCM1-4MM 

CHARACTERS  TEXT. NAMES. TAPE*4S.COOE*2.NAMEI*I* 

INTEGER*!  I DAY . TIDAYI MEMI I . SEOSI IS ) . ALTTI 3 1 

INTEGER  ALTS!  4),TANKR,APCR.TRUCKR.JEEPR.MMID.N4SID,NSS1ID.NI13ID 

INTEGER  LANCEIO, RESETS, FRECOG.FALSEID.FRECOGF.FALSEIDF 

INTEGER  WTAHKR,WAPCR.WTRUCKR.WJEEPR.WM«SriD.WM4SID.WNSSlID.WN113ID 

INTEGER  WLANCEID, I TARGE TN 

BYTE  TIHIMEM1 ),T!N(MEMt ), IH. IN. VALID 

REAL  TSECIMSNl I.TXIMEMl I.TVIMENl I.TZIMENI ) 

COMMON/COUNTS/ IFSEQ4 . 1FSEQI 3 . IFSEQ1 7 .SEOS 
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COMMON/TANKS/XTANK  !  11),  VTANX! 1 S  » .  1  TOTAL  T 

ALTSil)  ARE  TNI  32*  AND  1U  RUNS 

ALTS! 2)  ARC  THE  Ul  RUNS 

ALTS!  3)  ARC  THE  S2S  AND  IU  RUNS 

ALTS!4>  ARE  THE  RUNS  NOT  COVERED  NT  I  .2.  OR  3 

DATA  ALTS/4**/ .ALTT/32S.SM.S**/ 

SATA  XTANK/17SD. , 174*. , 1713. >1773. , 1S2R. , 1*74.B,2*2S.B,2*73.2 
1212*. ,*73. ,S73. .*73. ,*73./ 

DATA  VTANK/-2*. ,-11*. .-IS*. .-17*. .-14*. ,-123. ,-123. ,-123. .-12 
1-327. .-27S..-23S. . -IDS./ 

CALL  6TRUTHUDAV.1H.  IN, SEC. *,». VALID,  ITAR6ETN1 
TYPE  *.*  ENTER  FILE  NAME . ( t .•.  OP ERATO*. TOT  I* 

READ! D.SD INANE 
FORMAT! A) 

NAME-* t .ATV310PERAT0R.T0T* 

OPEN! UNIT-12, NAME-NAME .TYPE-'OLD* .READONLY, SHARED) 

FORMAT! •** > 

NAME  1- ‘MINI .DAT* 

TYPE  *. 1  READ INC  UNFORMATTED  MINI  RANCCR  DATA  FROM  FtLC  ‘.NAN 
OPENIUNIT-f ,NAMC-NAMC1 .TVPC-'OLD* .FORM-' UNFORMATTED* , 

1 SHARED, READONLY) 

1L-* 

READ  !*,EN0-4SBI,ERR-S4B)  1DAY.IH, IM.SEC.X.V.Z 

WRITE! S, 1««) IH, IM, SEC, X,Y,Z 

FORMAT! lX,12,'t',l2,*i‘,FS.3,3X,3IFf.l,IX>) 

1L-IL-1 

IF! IL.CT.MCM1 ) 

1TYPC  *.*  ERROR  IN  ARRAY  DIMENSIONS.  MAKE  MCM1  BICSCR  IL-'.IL 

TIDAV! IL >-lDAV 

TIN! (L l-IH 

TIM! IL  >*1M 

TSEC! IL  >-SEC 

TXI ILI-X 

TV! IL )-Y 

TZ!  IL)-2 

CO  TO  SB* 

TYPE  *,*  ERROR  ON  RtNCAIR  NINIRANCER  DATA  READ  ‘.1DAV.1N 
STOP 

TYPE  *.11.'  MINI  RANCCR  DATA  READ  SO  LETS  CET  ON  WITH  IT.* 
READ! 12,S7)TAPE 
FORMAT!  A) 

TYPE  “.TAPE 
VTANKR-* 

WAPCR-* 

WTRUCKR-* 

WJCEPR-* 

WHC*ID-« 

WM4RI0-* 

WM113I0-* 

WMSBI10-* 

WLANCEID-* 

NOPER-* 

IHDELTAO-* 


ono 


IHOELTAB-* 

IHDILTAR-* 

INBELTAI-* 

1DC00NT-* 

DELTAS'*. * 

BELTAOS-*.* 

IRCOUNT-* 

DEL TAR-*.* 

DELTARS-*.* 

I ! COUNT"* 

BELTAI-*.* 

DELTAIS-*.* 

FREC06F-*  • 

FALSE  IDF •* 

FllCOC'f 
FALSI 10-0 
TANKS'* 

AFCR-* 

TRUCKS'* 

JEEPS'* 

NO*!*-* 

H4DI0-* 

NU3ID-* 

LANCE  10-0 
MSI  IB«* 

RESETS-* 

IOFIN-* 

OTIME-777777. 

RTIM-777777. 

1  READ! 12. S*.IRR-7*7S.END'777>X.¥.I0AV. INN, IHM, SEC, TEXT 

lOMN'lOPIRM 

M  FORMAT! IX,F6.2,1X,F6.2,SX,1S,1X,I2,IX,I2,1X,F6.2,A) 

C  WRITE! 6,61 IX. V.IOAV, INN, INM, SEC. TEXT 

CALL  BTRUTNIIOAT, INN. INN, SEC, X.T. VALID, I TANK I ) 

CODE-TEXT! 2tS) 

IDSEARCH- INDEX! TEXT, ‘ IDENT' ) 

IF! .NOT. VALID ITHEN 

C  WRITEID.SSIX, V, IOAV, INN, INN, SEC, TEXT 

60  TO  1 
END  IF 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
RESET  ERROR  IN  OFCRATOR.FOR  FIX.  OF E RAT OR -FOR  NAS  ALSO  BEEN  FIRED 


IFICODE.EO. *JE‘ .AND.X.EQ.2SS. .AND. V .EQ.ZSS. ICODE- '  — 1 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
IFICODE.EO.'--' ITMIN 
RESETS-RESETSM 
C  ITANK1-0 

60  TO  I 
ENDIF 

IF! ITANKI. 10.0. AND. VALID. EO.SITNEN 
IF! IDSEARCH. EO.0ITHEN 

FREC06F-FREC06F-1 


1(7 

1M 

1(9 

17* 

171 

172 

173 

174 
17( 
174 
177 
179 
179 
iur 
id 
1(2 
1(3 
1(4 

its 

It( 

1(7 

Kt 

1(9 

199 

191 

192 

193 

194 
199 
194 
197 
199 
199 
299 
201 
202 

203 

204 

205 

206 
201 
206 
209 
219 
211 
212 

213 

214 
21B 
219 
217 
219 
219 
229 


FALSEIDF-FALSEIDF*! 

EMD1F 

60  TO  1 
IMBIF 

TIME  -FLOAT! I0AV>21S(*(9.*S9. *69.+ 

1FL0AT1 IHM  >*(9. *49. -FLOAT! IMM  1*69. +SEC 
C  W9ITE((.(19(X,V,IDAY.IHH.IMH. SEC. TEXT, ITANKI 

(19  FORMAT! tX,F9.2,lX,Ft.2.SX,13.1X,I2,lX,12,lX,F(.2,A.(X,I21 

IF(COOE.EO. '09* (THEN 

C  TVFE  *,'  VALID  TA96ET  DETECTION'  !•••*•••• 

I HDEL  TAD- I HDEL  TAD* I 
IHDELTAO-IHDELTAO+I 

C  TVFE*. ' IHOELTA-' , IHDELTA, ' ITANKI-' , ITANKI . 'TIME-' .TIME 

1TANK1D! IMDELTAD)*ITANKI 
HDELTAD! IHDELTAD (-TINE 

IF( A(S( TIME-DTINE ) .LT. 19. (THEN 
DELTAD-DELTAD«(TIME-OTIME> 

DELTADS-OELTADS+! T1ME-DTIME  >**2 

I OCOUNT- I OCOUNT  + 1 

END1F 

DTIME-TIME  I  TAE6ET  DETECT  TIME 

1DDAV-10AV 

60  TO  1 

ENDIF 

IFICOOE.EO.'TA1 .OR. CODE. EO. 'AF* .09. CODE. EO. 'TD* .09. CODE. EQ. *JE' (THEN 
IF! IDSEARCH.NE .9)60  TO  19 
RTINE-T1ME 

C  TVFE  *.'  VALID  TAR6ET  REC06HIT10JT  !••••*•• 

ENDIF 

IFICODE.EO. 'TA* (THEN 

IF! ITANKI. EO. 2.09. 

1  ITANKI. EO. 3. 09. 

1  ITANKI.  E0.4.-09. 

1  ITANKI. EQ.S. 09. 

1  ITANKI. EO. 19.09. 

1  ITANKI. EO. 11.09. 

1  ITANKI. EO. 12.09. 

1  ITANKI. EO. 13 (THEN 

IHOELTAR-IHOELTAR+1 
NDELTARI 1HDELTAR (-TINE 
TANKR-TANK9+ ( 

ELSE 

VTANKR-WTANK9+ 1 
60  TO  11 
ENDIF 

60  TO  2 
ENOIF 

IFICODE.EO. 'AF' (THEN 

IF! ITANKI. EO.  I. OR. 

1  ITANKI. EO. 9. OR. 

1  I TANK!. EO. 9 (THEN 

IHDELTAR-IHDELTAR+t 
HOELTAR! IHDELTA9 (-TINE 
AFCR-AFC9+ 1 
ELSE 
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1 

1 

1 


ITANKI.EQ.il. 0*. 
ITANKI.EQ. 12.0ft. 
1TANKI.EQ. 13)THEK 
IHDELTAI-IHDELTA1+1 
HOELTAK  IHDELTAI  l-TIHE 
H4SI0*M48ID+1 
ELSE 

WH48ID*UM481D»1 
60  TO  12 
ENDIF 

60  TO  3 
ENDIF 

IF ( COOE . EO. 'MS ' (THEN 

IF( ITANKI.EQ. 3. Oft. 

1  ITANKI.EQ. 4 1THEN 

IHDELTAI* IHDELTAI »1 
HDELTAII IHDELTAI l-TIHE 
H55I ID-M5S1 10*1 

else 

VMSS1 IDbWHSS1 ID*1 

60  TO  12 

ENDIF 

60  TO  3 
ENDIF 

IFICODE.EO.'HI1 1THEN 

IFIITANKI.EQ. 1.0ft. 

1  ITANKI.EQ. DITHEN 

IHDELTAI* IHDELTAI *1 
HOELTAK  IHDELTAI  1*TINE 
HU3ID-MU3I0+1 

else 

WN1 13ID-WH1 I3ID+1 

60  TO  12 

ENDIF 

60  TO  3 
ENDIF 

1FIC0DE.E0. 'LA* I THEN 
TVFE  *. 'CODE*' .CODE, •  I TANK-1 . I TANK I 
IF( ITANKI.EQ. 91THEN 
IHDELTAI* IHDELTAI *1 
HDELTAII IHDELTAI l-TIHE 
IANCE ID-LANCE  I D*1 

else 

VLANCEID-VLANCEID*! 

60  TO  12 
ENDIF 


60  TO  3 
ENOIF 
60  TO  II 

IFIAISI  TIHE-IITIHEl.LT.  IN.  1TNEN 
DELTAl-OELTAI+ITINE-RTIHE ) 
ITAMKI K IHDELTAI 1-ITANKI 
1 1 COUNT* 1 1 COUNT ♦ I 
OELTAIS-DELTAISM TIHE-RTIHE )**2 


60  TO  1 

FALSE ID-FALSE l 0-1 

WRONG  IDENTIFICATION  OF  ACTUAL  TARGET 

60  TO  I 

TVFE  ".CODE 

STOF  '  ERROR  ON  CODE* 

CONTINUE 

lOPIN-tOPIN-NOPER 

WRITEI6.37676 ITANKR ,  VTANKR .  AFCR  .WAPCR .TRUCKR ,  VTRUCKR ,  JEEPR  .WJEEPR, 
lM6«ID,WN6«ID.M4BIO.WM4SID.MSSlIO.WHSSllD.Nlt3ID,WHI13ID, 

ILANCE IO.WLANCEID, 

{RESETS , NOPER , IOPIN 

FORMAT! IX, 'NUMBER  OF  CORRECT  TANK  RECOGNITIONS- * . IS.4X, 

1 'WRONG-'. IS./. 

1  IX, 'NUMBER  OF  CORRECT  AFC  RECOGNITIONS-' , IS, 4X. 

2 'WRONG-' .IS,/. 

2  IX. 'NUMBER  OF  CORRECT  TRUCK  RECOGNITIONS- * , IB.4X, 
3'WR0NG-'.IS./, 

3  IX. 'NUMBER  OF  CORRECT  JEEP  RECOGNITIONS-' .16, 4X, 

4 'WRONG-' ,16,//, 

4  IX, 'NUMBER  OF  CORRECT  MSB  IDENTIFICATIONS-' . 16. IX. 

4 'WRONG-' ,18,/, 

6  IX. 'NUMBER  OF  CORRECT  M4B  IDENTIFICATIONS-' .IB, IX. 

S'WRONG-' ,16,/, 

6  IX, 'NUMBER  OF  CORRECT  MSB!  IDENTIFICATIONS-' .16. IX. 

6 ‘WRONG- '.IS,/, 

7  IX. 'NUMBER  OF  CORRECT  MII3  IDENTIFICATIONS-' . IB. IX. 

7 ‘WRONG- ‘.IS./, 

D  IX. 'NUMBER  OF  CORRECT  LANCE  IDENTIFICATIONS-' .IB. IX. 

S'WRONG*' .18./. 

9  IX. 'NUMBER  OF  RESETS-' .ID./. 

1  IX, 'NUMBER  OF  OPERATORS-' . ID,/. 

1  IX. 'NUMBER  OF  TOTAL  OPERATOR  RESPONSES- '. 11*1 

WRITE! 6. 47676  IFRECOG.FALSEID.FRECOGF .FALSEIDF 
FORMAT! IX. 

I 'NUMBER  OF  WRONG  TARGET  RECOGNITIONS  ON  ACTUAL  TARGETS- ' . 

111*./. 

Z  IX. 

I 'NUMBER  OF  WRONG  TARGET  IDENTIFICATIONS  ON  ACTUAL  TARGETS-' 

311*. /. 

4  IX. 'HUMBER  OF  FALSE  TARGET  RECOGNITIONS  >'.11*./. 

6  IX. ‘NUMBER  OF  FALSE  TARGET  IDENTIFICATIONS-' . I 1«> 

WRITE! 6, 17676 IIFSEQ4, IFSE013, IFSE017 , 1 1 1 .SEQSI 1 1 ) , 1 1-1 . IB  I .BEOS!  191 
FORMAT! IX,'  DESIGNATIONS  FOR  FALSE  TARGET  SEQUENCE  4-'. IS./. 

1  IX.’  DESIGNATIONS  FOR  NO  TARGET  SEOUENCE  13-', IS./, 

Z  IX.'  DESIGNATIONS  FOR  HO  TARGET  SEQUENCE  !7-‘,!S.  . 

3  ID!/. IX.'  SEOUENCE  '.12,'  DESIGNATION  COUNT-' . I 1*> . 

4  /.IX, 'OUTSIDE  GROUND  TRUTH  !RIG-'.!1*> 

IF! IOCOUNT .EQ.«)THEN 

TVPE  -,'  NO  DETECTIONS' 

GO  TO  IBIS 
ENDIF 

DELTADO-OELTAO/FLOATi IDCOUNT) 

IF! IOCOUNT. EQ.1ITHEN 
WRITE! 6,912 IDELTAO 


nt 

1(7 

»l 

HI 

Iff 

391 

3(2 

3*3 

3*4 

3*5 

394 

397 

398 

399 

400 

401 

402 

403 
*04 
*05 
*06 
*07 
*00 
*09 
*10 

411 

412 

413 

414 
411 
414 
417 
414 
41* 
*20 

421 

422 

423 

424 

425 
424 
427 
424 
429 
434 

431 

432 

433 

434 

435 
434 
437 
434 
439 
444 


912  FORMAT! IX. 'DETECT  TINE  FOR  THE  SINGLE  DETECTION- '. F7. 3 ) 

GO  TO  1444 

CNDIF 

S0-SQRT1 ( DELTADS-C FLOAT! I DCOUNT1-DELTAOD— 21  >/! FLOAT! IDCOUNT 1-1. 411 
WRITE! 4.454 1DELTA00. IDCOUNT . SD 
444  FORMAT! IX, ‘MEAN  DETECT  TIME- ' ,F7 . 3, IX SECONDS' , IX, 

1 ' ON ' , I 5 , '  DETECTIONS' ./. IX. 'WITH  A  STANDARD  DEVIATION  OF'. 

2F7.31 

1444  IF! IRC0UNT.E0.41THEN 

TVFE  *,'  NO  RECOGNITIONS' 

GO  TO  1447 
ENOIF 

DELTARR-DELTAR/FLOATI IRCOUNT) 

IF! IRCOUNT. EQ. 1 1THEN 
WRITE i 4, 913 IDELTAR 

913  FORMAT! IX. ‘RECOGNITION  TIME  FOR  SINGLE  RECOGNITION-' ,F7. 3) 

GO  TO  1447 

END1F 

SO-SORT! !OELTARS-f FLOAT! IRCOUNT1-DELTARR—2 1 )/( FLOAT! IRCOUNT >-1.4>l 
WRITE! 4. 444 10ELTARR, IRCOUNT, SD 

444  FORMAT! IX. ‘MEAN  RECOGNITION  TIME-' ,F14. 3. IX. ' SECONDS' . IX. 

I‘ON',17,'  TARGETS' ,/. IX. 'WITH  A  STANDARD  DEVIATION  OF', 

2F14.3) 

1447  IF! I 1COUNT . EQ.f )THEN 

TVFE  *.'  NO  IDENTIFICATIONS.' 

GO  TO  1449 
END1F 

DELTA! 1-DELTAI /FLOAT! I ICOUNT  > 

IF! I ICOUNT.EQ. 1 1TNEN 
WRITE! 4 .914 1DELTAI 

414  FORMAT! IX. 'IDENTIFICATION  TINE  FOR  SINGLE  1D-'.F7.3> 

60  TO  1449 
ENOIF 

SO-SORT! !  DELTAIS-!  FLOAT!  I  ICOUNT  l-DELTA!  1—2 )  >/!  FLOAT!  I  ICOUNT  >-l  .*)  > 
WRITE! 4 . 447 ) DELTA! I . I ICOUNT , SD 

447  FORMAT! IX. ‘MEAN  IDENTIFICATION  TIME- ' .FIG. 3. IX. 'SECONDS' . IX. 

1 'ON' • 17, '  TARGETS './.IX,' WITH  A  STANDARD  DEVIATION  OF*. 

2F19.3) 

1449  CONTINUE 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C  I.  OSJECT  DESIGNATION  TIMES 

C  2.  TARGET  DETECTION  ANO  DESIGNATION  TIMES 

C  3.  TARGET  RECOGNITION  TIMES 

C  4.  TARGET  IDENTIFICATION  TIMES 

C 

C  1,2,3  AND  4  ARE  ALL  CORRELATED  WITH  MINI  RANGER  IRIGS  TO  CALCULATE 

C  RANGES.  GROUND  TRUTH  TELLS  US  WHICH  TARGET  TO  CALCULATE  THE  RANGE 

C  TOO.  THE  VARIABLE  ITAMKI  CONTAINS  THE  ACTUAL  TARGET  NUM4ER  THAT 

C  WAS  DETECTED. 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DO  3333  IFLOT-1 .3 

DO  IN1TALTS-I ,4 
ALTS! INITALTS )-9 


EHDOO 
IMCOVRW 

cccccccccccccccccccccccccccc 

IF( IPLOT.EO. 1 >IENDD»IHDELTAD 
IF< 1PLOT. EQ.2 ) IEHDD'IHDELTAR 
IF  < IPLOT.EO. 3 )IER00*IHDELTAI 
C  lERDC'IHDELTAR  I 

CCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DO  •  1*1 • IENDD 

CCCCCCCCCCCCCCCCCCCCCCCCCCCC 
IF! IPLOT.EO. I >TMER 
STIME -HDELTAOt I > 

ITANKI*ITANKIO( I > 

C  TYPE*, 'DETECTION  PLOT  ITARKI“* . 1TANKI 

ENDIF 

IF I IPLOT.EO. ZITHER 
8TIME>HDELTAR<I> 

ITAMKWTAMKIRII) 

C  TYPE* , ' RECOG  PLOT  ITARKI*' , ITAMKI 

EROIF 

IF( IPLOT.EO. 3ITHER 
JTIME-HDELTAKI) 

ITANKI-ITAHKI If 1 > 

C  TYPE*. 'ID  PLOT  ITARICI-* .  ITARKI 

ERDIF 

C  STIME -HDELTARI I )  I 

CCCCCCCCCCCCCCCCCCCCCCCCCCCC 
DO  S  J-l.IL 
TIHJ-TIH(J) 

TIMJ-TIMIJ) 

TIMEMIRI -FLOAT!  TIDAYfJ>-21S>*M. 

ITIHJ*6».*6».*TIMJ*6F.*TSEC! J> 

IF  I TIMEMIRI ,LT. STIME >60  TO  i 
IFITIMEMIHI .CT.STIME**. >G0  TO  77ZZ 
C  TYPE*.'  TIMEMIRI- 1 .TIMEMIRI , '  STIME-' .STINE, *  DIFF-* . 

C  1ADS< STIME -TIMEMIRI > 

IF(0 .GT . I (THEN 

ITIHH-T!H(J-I> 

ITIMM-TIMIJ-l > 

IT0AY2*TI0AV( J-l > 

SMTIME -TCVTI ITDAVZ, ITIHM. ITIMM.TSECI J-l > > 

C  TYPE  * , 1 SMTIME -STIME  TESTIRG* .SMTIME-STIME, 'SMTIME"' . 

C  1  SMTIME. ‘STIME-1 .STIME 

IF< ADSI SMTIME-STIME  > .LT .ADS< TIMEMIRI -STIME  >  >THEH 
IF! ADSI SMTIME-STIME >.GT.ERR0RMIR1 >60  TO  7722 
M-J-I 
00  TO  7 
ERDIF 

EROIF 

82  ITIHH-TIHf J*l > 

ITIMM-TIMI J-l > 

IT0AV2-TIDAYI J-l > 

SSTIME -TCVTI 1TDAV2, ITIMH, ITIMM.TSECI J*1 ) > 

TYPE  TIMEMIRI -STIME  TESTIRG’ .TIMEMIRI -STIME 

IF( ADSI TIMEMIRI -STIME ) .6E .ADSI STIME-SSTIME  >  >G0  TO  8 


C 


4N 

!F(  AIS(  TIMEMI HI -STIME  >  .6T .  ERRORMINt  1(0  TO  9 

497 

C 

ERRORMINI  IS  USED  AS  A  MAX  ERROR  ALLOWED  FOR  USADLE  MINI  RAMER  INFORMATION 

49* 

JJ-J 

499 

7 

TIHJ-TIH (JJ) 

ui 

TIMJ-TIM(JJ) 

ui 

TIMEMINl-FLOATl TIDAY( JJ 1*219 1*6*. *6*. ***.♦ 

5*2 

ITIHJ*6*. *9*. *TIMJ*6*. *TSEC( 00  ) 

9*3 

TERR0R-A9SI TIMEMINI-ST1ME 1 

9*4 

IF( TERROR. 6E. ERRORMINI 160  TO  7722 

9*9 

C 

TYFE*.  ‘  JJ-' .JJ.'TXIJJ)-' ,TX( JJ). • VALID- VALID, ‘ tTANKI-' .ITANKI . 

9*9 

1  IRI6-' ,TIH(JJ),TIM(JJ).TSEC( JJ) 

9*7 

C 

TYFE*. 1 YTANK-* , YTANK1 ITANKI ) , ' IL-' . IL, 

9*9 

I'OELX-'.DELX.'DELV-' ,OEL V , ' XTANK- ' . XTANK ( ITANKI > 

9*9 

91* 

DELX— XTANK!  ITANKI  >*TX(  JJ  ) 

911 

DELY— YTANK1 ITANKI >*TY( JJ  ) 

912 

913 

OELZ-926 . * .3*49  (DEFAULT  ALTITUDE  FOR  FALSE  TAR6ET  RUNS  ETC. 

914 

C 

TTFE  *.'  l-'.I.'  STIME-'  .STIME •  ‘ TIMEMI NI-'  .TIMEMINI . '  SSTIME-'. 

919 

C 

1SSTIME. *  SMTIME •' .SMTIME . 'TX( JJ >•' ,TX( JJ 1 . ‘TY( JJ >-* ,TY( JJ > . 

916 

c 

2'JJ-' . JJ. • ITANKI* * .ITANKI, ‘DELX-1 .OELX. 'DELY-' .DELY 

917 

IDA-1 

919 

c  scat 

919 

iFlStlME .CE .TCVT( 219, 19,59,12.) 

92* 

1.  AND.  STIME.  LE.TCVTl  219, 19, 56. 12. 139  OTHER 

921 

DELZ-. 3*49*926. 

922 

431 

ALTS< 2 1-ALTS( 3 1*1 

923 

IDA-* 

924 

60  TO  1999 

929 

END1F 

926 

C  9102 

927 

IF(STINC.GE.TCVT(216, 19,29,34. 1 

929 

1  .AND.  STIME.  LE.TCVT<  216. 15. 26, 44. 969  OTHER 

929 

DELZ- . 3*49*33*. 

93* 

c 

GO  TO  6  1————  poR  SELECTIVE  ALTITUDE  FLOTS 

931 

43* 

IDA-* 

932 

ALTS( 1 )-ALTS( 1 1*1 

933 

GO  TO  1999 

934 

END  IF 

939 

c  scai 

936 

IF ( STIME .GE .TCVT(216,1B, 4«,9*. 1 

637 

1 ,ANO . STIME . LE .TCVT( 216,19,41 ,3*. 999 1 1THCN 

939 

DELZ-. 3*49*9**. 

939 

c 

GO  TO  6  1 **••••*••  FOR  SELECTIVE  ALTITUDE  FLOTS 

94* 

432 

IDA-* 

941 

ALTS<  2  >-ALTS<  2 1*1 

642 

GO  TO  1999 

943 

END1F 

944 

C 

949 

C 

NOTE  THAT  NOTHING  IS  HERE  FOR  SEO  4  SINCE  THEY  SHOULD  ALL  9E  INVALID 

946 

c 

947 

C  SE09 

949 

IF(STIME.GE.TCVT(21S, 19,7,9. ) 

949 

1 .AND .STIME .LE .TCVT( 215, 19,9.22.219) 1THEN 

99* 

DELZ-. 3*49-9*9. 

29 


C  SO  TO  *  I ••••••••*  FOR  SELECTIVE  ALT1TVOE  HOTS 

4)3  10A-3 

ALTS(2>-ALTS<2)*1 
SO  TO  1999 
ENDIF 

C  SEOS 

IFISTIME .SE.TCVTI 21t, It, l ,33.  > 

l.ANO. STINE. LE.TCVTI2lt.lt. 2. t7.4Jt>>THEN 

DELZ-. 3349*929. 

434  IDA-3 

ALTS! 31-ALTSI3 1*1 
SO  TO  IMS 
ENDIF 

C  SE07 

lF(STINC.6E.TCVT<21t.lS.D.t7.) 

I  .AND.  STINE.  LE.  TCVTI  2tt,  IS,  13.2. 317  HTHEN 
DELZ-.334S-333. 

C  SO  TO  t  I  •••••••—  FO«  SELECTION  OF  SFECIFC  ALTITUDES  FON  F LOTT  INC 

429  IDA-3 

ALTS! I 1-ALTS1 1 )♦! 

60  TO  1999 
CNOIF 

C  SEOt 

IF (STINE .6E .TCVTC  211,19,31,1). > 

1. AND. STINE. LI. TCVTI tit, 19, 32. 33. 11THEN 
Df LZ-321 . ■ . 3349 

C  SO  TO  t  I————  FOR  SELECTION  Of  SFECIFC  ALTITUDES  FOR  FL0TTIN6 

429  IDA-3 

ALTS< 1 >-ALTS( 1 »♦! 

60  TO  1999 

ENDIF  « 

C  SE09 

IF ( STINE .SE . TCVT( 21 t, 11,13,12. > 

l.ANO. STINE. LE. TCVTI 21t.lt, II, 12. 322 1 1TNEN 

OELZ-. 3349-133. - 

C  SO  TO  I  I———  FOR  SELECTIVE  ALTITUDE  HOTS 

435  IDA-3 

ALTS! 2 1 -ALTS! 2 1*1 
SO  TO  1999 
ENDIF 

C  SE013 

IF ( STINE .SE .TCVTI 21 t , It. IS ,3. 1 

l.ANO. STINE. LE. TCVTI tit. It. S9. 2. 229) 1THIN 

DEL2- . 334I-S2S . 

431  IDA-3 

ALTS()I-ALTS(3>«1 
60  TO  1999 
ENOIF 

c  siaii 

IF! STINE .61 .TCVTI 21 S, ID, 1 1 ,4. ) 
l.ANO. STINE. LI. TCVTI tit, IS. 12, 13.139) 1TNEN 
OELZ- . 334S-S2S . 

IDA-3 

ALTS! 3  l-ALTSI 3)*l 
60  TO  1999 


437 


-jttj j  -ji .  -jwiP  uu '  j 1  i»  t  a*  ’yyygr  j»  »i»-j  yj  »■ 


<0« 

me  if 

•07 

C  SE312 

60* 

1F1STIHE.6I.TCVT1216.1B.44.10.) 

••9 

1. AND. STINE. LT. TCVTl 216, IS, 48,0. 1 ITHEN 

•  10 

DELZ-. 3046*600. 

ill 

C 

GO  TO  •  •  *•• *•*•••  FOM  SELECTIVE  ALTITUDE  PLOTS 

•  12 

436 

IDA-0 

•  13 

ALTS ( 2 I -ALTS!  2  >♦ 1 

•  14 

GO  TO  1999 

•  IS 

EN01F 

•  IS 

C 

•  17 

c 

NOTE  THAT  NOTHING  IS  HERE  FOR  SEQ  13  SINCE  ALL  SHOULD  IE  INVALID 

•  It 

c 

•  1* 

C  SE014 

•20 

IF(STINE.6E.TCVT(21B.19,23,17. > 

•21 

1 .AND. STINE .LE .TCVTl 215, 19,24,25.692) 1THEN 

•22 

DELZ-. 3046*326. 

•23 

C 

GO  TO  •  1 •••••*••••  FOR  SELECTION  OF  SFECIFC  ALTITUDES  FOR  PLOTTING 

•24 

427 

IDA-0 

•  2S 

ALTS( 1 1-ALTS1 1 1*1 

•2t 

GO  TO  1999 

•  27 

ENOIF 

•  2« 

c  scon 

•29 

IF( STINE. GE.TCVT(21«, 16, 08,4.) 

•30 

1 . AND . ST I ME . LE . TCVTl 2 1 6 , 1 • , S , B9 . 926 ) )THE  N 

•  31 

DELZ- . 3046*630. 

•32 

439 

IOA-0 

•  33 

ALTS! 3 1-ALTS1 3 )♦! 

•34 

GO  TO  1999 

•  3S 

END1F 

•  36 

c 

SE016  IS  THE  SANE  AS  I  SO  WE  DON'T  WANT  TO  COUNT  THEN  TWICE 

•  37 

c 

IF1 T1NEN1NI.6E. TCVTl 2!>,  1D.31, 13. ) 

•39 

c 

I .AMD.TINENIM! .LE .TCVTl 216 ,19,32,30. ) 1THEN 

•  39 

c 

DELZ-. 3048*326. 

•  40 

c 

IOA-0 

•  41 

c 

ALTS! 1 l-ALTSll 1*1 

•42 

c 

END  IF 

•  43 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

•  44 

c 

NOTE  THAT  NOTHING  IS  HERE  FOR  SEO  17  SINCE  ALL  SHOULD  IE  INVALID 

•  4B 

c 

•  46 

c  seal* 

•  47 

IF 1  STINE .61 .TCVTl 216, 16,22,26. ) 

•  48 

1 .AND. STINE .LE .TCVTl 216, IS , 23 .6.361 > ITHEN 

•  49 

DELZ-. 3046*330. 

<50 

c 

GO  TO  •  |——*—  roe  SELECTION  OF  SFECIFC  ALTITUDES  FOR  FLOTTING 

•  SI 

426 

IDA-0 

652 

ALTS! 1 1-ALTSI 1 1*1 

653 

GO  TO  1999 

654 

ENOIF 

656 

IFI IDA.EO.l ITHEN 

656 

ALTSI 4 I-ALTSI 41*1 

657 

CALL  CVTTI STINE, IDAVC, INC. INC. SECC) 

656 

PRINT  1987, I0AVC.IHC, INC. SECC, IENDD, I, STINE 

659 

1967 

FORNAT1 IX, . OUTSIDE  ALTITUDE  FOR  IRIG 

660 

11X.I3.'I',I2,,>'.I2.‘1\F6.2.5X,,IHDEI.TAX-'.IS. 

31 


2SX,  'CURRENT  LIST  INDEX-'. IS.'  ST1ME-' .Flf .21 
CO  TO  • 

INDIE 

19*9  CONTINUE 

C  DELZ-TZIJ 1-172  IOOUC  WHITE  TOLD  ME  TO  TAKE  OFF  FOR  SEA  LEVEL 

RA-SQRTiD£LX*DELX*OELV»DELV*DELZ»DELZ> 

I HCOUNT *  I MCOUNT *  1 

ccccccccccccccccccccccccccccccccccccccc 

1 F ( IFLOT.EO. 1 IHDELTADi 1HCOUNTI-RA 
C  IF( IFLOT.EO. 1 >TVFE  •, ‘STINE , DAT. HR. NIN, SEC. INCOUNT-' . 

C  I  STINE . IDAV , IHH . 1 RR . INN . SEC , IMCOUNT 

1 F  € IFLOT. E0.2IHDELTAR! IHCOUNT >-RA 
IFI IFLOT.EO. 3)NDELTAI( IHCOUNTI-RA 
C  HOE L TAR ( IMCOUNT >-RA 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CO  TO  C 

S  CONTINUE 

7722  CALL  CVTTI STINE. I0AVC. INC. INC. SECCI 

FRINT  9S7, IDA VC. IHC, INC , SECC, IENOO, I , STINE 
SS7  FORMAT! IX. MINI  RANCER  DATA  NOT  FOUND  FOR  IRIC. 

UX.lS.'i*  .12.'  i 1 .12.  1 1 '  , F6.2.5X, '  IHDELTAX-'  .IS. 

2SX.  'CURRENT  LIST  INOEX-'.IS,'  STINE- •  ,Flf. 2 ) 

S  CONTINUE 

IF( IFLOT.EO. 1ITHEN 

C  TVFE  -,'INCOUNT-'. INCOUNT.'  IFLOT-' , IFLOT 

I HCOUNTD- I HCOUNT 

WRITE! S.27S7I )( ALTTI II) .ALTS! III.II-t.3I ,ALTS( 4  I 
2767S  FORMAT! 3! IX , ‘NUMBER  OF  DETECTIONS  AT  ',13,'  FEET  -'.Ilf./I 
1 IX , ' NUMIER  OF  DETECTIONS  OUT  OF  THE  ASOVE  ALTS-'. Ilf) 

ENDIF 

IF! IFLOT.EO. 2 ITHEN 

C  TTFE  IMCOUNT- •.INCOUNT.'  IFLOT- ‘ . IFLOT 

I HCOUNTR- 1 HCOUNT 

WRITE! 6 ,27676 II ALTTI Ill  .ALTS! II >,11  —  1.3) .ALTS! 4 ) 

27S7S  FORMAT! 31 IX.' NUMBER  OF  RECOGNITIONS  AT  '.13.'  FEET  -'.Ilf./I 
1 IX. 'NUMBER  OF  RECOGNITIONS  OUT  OF  THE  ASOVE  ALTS-',llf> 

ENDIF 

IF! IFLOT. E0.3ITHEN 
INCOUNT! -INCOUNT 

C  TVFE  -.‘IHCOUNT-', INCOUNT.'  IFLOT-' , IFLOT 

WRITE! t ,27674 )! ALTTI II) .ALTS! III. 11-1,3) .ALTS! 4  > 

27674  FORMAT!  3!  IX.  'NUMBER  OF  IDENTIFICATIONS  AT  M3.'  FEET  -‘.Ilf./I 
UX, 'NUMBER  OF  IDENTIFICATIONS  OUT  OF  THE  ABOVE  ALTS-'. Ilf) 

ENDIF 

TVFE  ERROR  ALLOWABLE  IN  MINIRANCER  DATA  -'.ERRORMINI 
3333  CONTINUE 

C  CALL  HIST2I 1 .HD EL TAO, IHCOUNT I  I  FOR  OBJECT  RANGE  DESIGNATIONS 

C  DO  IFRINT-1 , IHCOUNTO 

C  TVFE  -.HOELTADI IFRINTI.IFRINT, IHCOUNTO 

C  ENDDO 

CALL  H I STZ 1 2. NOEL TAD, 1 HCOUNTD I  I  FOR  TARGET  DETECTION  RAN6E6DESICNATI0NS 
C  DO  IFRINT- 1 , I HCOUNTR 

C  TVFE  * .HDELTAR! IFRINTI.IFRINT, I HCOUNTR 

C  ENDDO 

CALL  HIST2I3, HDELTAR, IHCOUNTR)  I  FOR  RECOGNITION  DELTA  HISTOGRAM 


DO  IPRINT*! ,  IHCOUNTI 

TYPE  *,HDELTAI( IPRINT  I ,  IPRINT, IHCOUNTI 

CNDOO 

CALL  HIST21 4 , HDELTAI .IHCOUNTI )  I  FOP  IDENTIFICATION  DELTA  HISTOGRAM 
STOP  ‘  ALL  DONE' 

CONTINUE 

TYPE  *.'  TAPE  NUN  LINE  READ' 

NOPER*NOPER*l 
I TANK 1-0 
VALID** 

60  TO  1 
ENO 

FUNCTION  TCVT1 IDA V, IN. IN, SEC ) 

TCVT-FLOATC  I DAY-215 >*60. *6*. *60. ♦FLOAT!  1H>*60.*60.* 

1FL0ATI IN>*60. *SEC 

RETURN 

END 

SUBROUTINE  6TRUTHI I DAY . IN . IN . SEC . X , Y , VAL ID . ITAR6ETN > 

PARAHETER  NEH-3 0000 

BYTE  IN.IN,VALID.T1H(NEN).TIN(NEN>,SEQN.TAR6ETS(10.1B) 

BYTE  NUNT(IB) 

DIMENSION  TSEC(NEN) ,ERRORP( IS  I 

INTE6ER*2  TIDAV(NEN>,BOX( 4.MEM). IDAV.SOXESl 4>.S0XN.T( IS) ,SEOS( IB) 

INTE6ER  TDAY ,TIHH , TIMM, ITARSETN , TDAY2 , TIHH2 ,TIMM2 , BEGINS .ENDS 
DATA  6ERROR/10. / 

MAX  ALLOWABLE  SKIP  IN  GROUND  TRUTH 

HUNT ( X )  CONTAINS  THE  NUMBER  OF  TARGETS  TRACKED  DURING  THE  X  RUN  SEO 
DATA  NUMT/6,7,4,0,4.9 ,6 , 3 , B,9 , B,4 ,0,4.4 .3 .0.2/ 

TARGETS  IS  A  BYTE  ARRAY  THAT  CONVERTS  T  NUMBERS  TO  ACTUAL  TARGET  NUMBERS 

THE  FIRST  INDEX  IS  THE  T  NUMBER  1  TO  10 

THE  SECONO  1N0EX  IS  THE  SEOUENCE  NUMBER  I  TO  IB  ON  TAPE  1 

SE0SI19)  IS  THE  COUNT  FOR  ALL  OUT  OF  IRI6  GROUND  TRUTH  DESIGNATIONS 

COMMON/COUNTS/ IFSEQ4, IFSEQ13, IFSEQ17 ,SEQS 

DATA  SEOS/ 19*0/ 

OATA  INIT/1/, IFSEO4/0/, IFSEOI3/0/, IFSEO17/0/ 

DATA  ( ( TARGETS! N,M),N*I,10),M*1,IB)/4,2,1,9.R,7.4*1. 

29. B. 6.7.4. 10. 1.3*1. 

37. B. 9. 10. 6*1. 

410*1. 

61.2.4.3.6*1. 

69. 6.7, 6. 6. 4. 3. 13. 10.1, 

73. 9. B. 6. 7. 6, 4*1. 

81.2.4.7*1. 

910,1.4,8,6.7.6,9.2*1, 

113. 1.12,4.8,6. 7. B. 9.1. 

19.8.7.6.4.3.2.1.2*1. 

27,8.9.10.6*1. 

310*1. 

41.2,3.4,6*1. 

810.12.13.1,6*1. 

61,2,4,7*1, 

710*1. 

*13,1.8*1/ 

IF( IHIT1THEN 

TYPE  *,'  READING  GROUND  TRUTH  DATA  FILE  GROUND. FFF..  STANDBY.' 


*  'i 


I 


* 


& 


V*. 


771 

OPEN! UNIT-9 .NAME- ' GROUND. FFF ‘ , TYRE- ‘OLD  * . READONLY , SHARED  > 

772 

106 

773 

2 

READI9, 221, EN0-166>1DAV.IH, IN. SEC. IB0XESI1), 1-1,4) 

774 

221 

FORMAT! IX. Z4.1X.I2. IK. 12, 11. 77.3,41 3^,14)) 

778 

10101 

778 

80X11,  IOMOXESI1)  ILEFT 

777 

BOX! 2, IO-BOXES!  2 )  IRI6HT 

778 

BOX! 3 , 1C )-BOXESI 3  >  ITOP 

77# 

BOX! 4. 1C  )-80XES! 4  >  1  BOTTOM 

7M 

TIN! IC >-IH 

781 

TIN! IC )-IN 

782 

TSEC! ICI-SEC 

783 

TIOAV! 1C l-IOAV 

784 

C 

WRITE! 6,67 )1H, IN, SEC 

785 

67 

FORMAT! IX, 12.' I* ,12.*>',F6. 21 

786 

GO  TO  2 

787 

166 

TYPE  •. 'TOTAL  NUMBER  OF  IRICS-'.IC 

788 

INIT-6 

789 

RETURN 

796 

ENOIF 

791 

g 

792 

C 

ENTER  HERE  AFTER  INITIAL  GROUND  TRUTH  FILE  READ 

793 

0 

794 

VALID-6 

795 

IHR-1H 

798 

INR-IN 

797 

IDDAV-IDAV 

798 

TINE-TCVTI IDDAV, IHR, IRK ,SEC ) 

799 

c 

PRINT  16, 1DAY , IH, 1M.SEC .TIME 

Ml 

IS 

FORMAT! IX,'  TIME-' . 13. • i • , 12. ' t ' , 12, ' I  * .F6.2.SX .F26.5 1 

861 

c 

SEO  1 

862 

IFITIMC .GE .TCVTI 215 , 18,55,21 .666) .AND . 

863 

1  TIME .LE .TCVT! 215, 18,56,12.138) 1THEN 

864 

c 

RETURN  1  ——••••••SELECTIVE  SEQUENCE  PROCESSING 

865 

888 

BEG INS-2669 

865 

ENOS-3233 

867 

SEQN-1 

868 

SEOS! 1 1-SEOS! 1 1*1 

869 

GO  TO  1 

816 

ENOIF 

811 

C 

SEQ  2 

812 

IF!TINE.GE. TCVTI 216, IS, 28.89. 455). AND. 

813 

1  TIME. LE.TCVTI216, 15.26,44.858) ITHEN 

814 

c 

RETURN  1  •—•••••••••SELECTIVE  SEQUENCE  PROCESSING 

815 

888 

BEGINS-6676 

818 

ENOS-7157 

817 

SEQN-2 

818 

SEOS! 2 )-SEQSI 2 )•! 

819 

GO  TO  1 

826 

ENDIF 

821 

C 

SE03 

822 

IF! TINE. GE. TCVTI 216, 16. 41,  6.I62I.AN0. 

823 

1  TIME .LE . TCVTI 216, 15,41 ,36.985  > )THEN 

824 

c 

RETURN  1  —•••—•— SELECTIVE  SEQUENCE  PROCESSING 

825 

887 

SEON-3 

34 


£ 


ENOS-7692 
SEOS<3>-SEOS(3)*l 
CO  TO  1 
ENOIF 

SE04  FALSE  TARCET  RUN 

IF  (TINE  .CE .TCVT1 216. 15,34»12.909I.AND. 

I  TIME  .LE .TCVT(  216.15,35,22.999)  ITHEN 
IFSE04-IFSE04*! 

TYPE  FALSE  TARCET  IN  RUN  SEO  I7MFSE04 

RETURN 

ENOIF 

SEOS 

IFI TIME .CE .TCVTI 215, 19,  7. 45. 232). AND. 

1  TIME . LE . TCVTI 215, 1 9 ,  t. 22 . 219 > ITHEN 

RETURN  I  ••••••••••••SELECTIVE  SEQUENCE  PROCESSINC 

SEQN-5 

•ECINS-3234 

SEOSISI-SEQSf  51+1 

ENDS-4141 

CO  TO  1 

ENOIF 

SEOS 

IFITIME.CE.TCVTI 219,16.  I .39. 919). AND. 

1  TIME.LE.TCVT1216.1S,  2 ,27 . 432 1  ITHEN 

RETURN  I  ••••••••••••SELECTIVE  SEOUENCE  PROCESSINC 

SEON-6 

IECINS-191S3 

ENOS-11575 

SEQSI6I-SEOSI6)*! 

CO  TO  1 

ENOIF 

SE07 

IFITIME.CE.TCVTI 21 5, 15,  9.  1 .926 1 .AND . 

1  TIME .LE .TCVTI 215, 15, 19,  2.917)  ITHEN 

RETURN  I  ••••••••••••SELECTIVE  SEOUENCE  PROCESSINC 

SEON-7 

BEC1NS-1 

ENOS-756 

SEQSI 7 1-SE0SI7  >•! 

CO  TO  1 

ENOIF 

SE09 

IFITIME.CE.TCVTI 215, 19,32,  2.424  I. AND. 

1  TIME.LE.TCVTI215.19.32.29.391 1 ITHEN 

RETURN  I  ••••••••••■•SELECTIVE  SEQUENCE  PROCESSINC 

SEQN-9 

9ECINS-4993 

ENOS-5599 

SEOSI 9 l-SEOSI 9>*1 

CO  TO  1 

ENOIF 

SEQ9 

IFITIME.CE.TCVTI 216, 15, 51.  9. 556 1. AND. 

1  TIME . LE . TCVTI 216,15,51,52. 322 1 ITHEN 


SEQN-9 

return  i  —————selective  seouence  processing 

OEGINS-9191 

EN0S-91E4 

SEQS191-SEQS191-1 

60  TO  I 

E 110 1 F 

SCO  19 

IF! TINE. CE. TCVTl 216, 19. 99.  9. 3491. AND. 

I  TIME . LE .TCVT( 216, 15,69,  2.229)>THEN 

RETURN  I  ——SELECTIVE  SEQUENCE  PROCESSING 

SEON-19 

9E6INS-9129 

ENOS-19162 

SE0S1 19)-SE0S( I9>«1 

GO  TO  1 

ENOIF 

SEO  11 

lF<TlMC.6E.TCVT(21S,19,Slal7.269> . ANO . 

1  TINE. LE.TCVTl 216, 11,62, 19. S9S11THEN 

RETURN  l  —————SELECTIVE  SEQUENCE  PROCESSING 

SEQN-1 1 

•EG INS-767 

ENOS-2999 

SE0S1 11 1-SE0S1 11 )-l 

GO  TO  1 

ENOIF 

SE012 

IF ( TINE .GE .TCVTl 216, 19,44,29. 439 1 .AND. 

1  TINE .LC .TCVTl 216, 16,44,67.563) 1THEN 

RETURN  I  —————— SELECTIVE  SEQUENCE  PROCESSING 

SCQN-12 

6EGINS-7693 

ENOS-9199 

SEQS( 12 l-SEQSl 121-1 

GO  TO  1 

ENOIF 

SEQ  13  FALSE  TARGET  RUN 

1*1  TINE. CC. TCVTl 216. IS. 49. 39. 999). AND. 

1  TINE. LE. TCVTl  216, IS. 69, 19. 999) 1TMEN 
IFSEQ13-IFSEQ13-1 

TYPE  >,'  FALSE  TARGET  IN  RON  SEO  13* , IFSEQ13 

RETURN 

ENOIF 

SEQ  14 

IF1TINE .GE . TCVTl 219, 19,23,97. 769 1 .AND. 

1  TINE .LE .TCVTl 216, 19,24,26.692 1 1THEN 

RETURN  I  — — — — ■ -SELECTIVE  SEQUENCE  PROCESSING 

SEQN-1 4 

REGINS-41 42 

ENOS-4992 

SEOSI 14 1-SE0S1 141*1 
GO  TO  1 
ENOIF 
SEQ  18 


IF <  TIME . SI .TCVT< 216,16,  8.21 .414 ) .AND. 

1  TINE . LI .TCVT< 216.18.  8.59.926) 1THEN 
C  RETURN  I  ••••••••••••SELECTIVE  SEQUENCE  FR0CESSIN6 

798  SEQN-1S 

6E6INS-11576 

ENDS-1 1861 

SEQS! 15  >-SEQS< 15  )*1 

60  TO  1 

END  IF 

C  SEO  16 

IF(  TINE. 6E.TCVTI 216 ,19,32,  2. 424). AND. 

1  TINE . LE .TCVT( 216,19,32,29.876) )THEN 
C  RETURN  I  ••••••••••••SELECTIVE  SEQUENCE  FR0CESSIN6 

797  SE0N«16 

6E6INS-4863 

ENOS-5590 

SEQSt 16 >-$EQS! 16  )*1 
60  TO  1 
END  IF 

C  SEO  17  FALSE  TAR6ET  RUN 

IF! TIME .6E . TCVT( 215, 19,34,  4 . 000 ) . AND . 

1  TINE . LE .  TCVT( 21 6 , 1 9,34,39.000)  (THEN 
IF SEO 17* IF SEO 17*1 

C  TVFE  *.'  FALSE  TAR6ET  IN  RUN  SEO  17‘,IFSE017 

RETURN 
ENDIF 

C  SEO  16 

IFiTIME .6£ .TCVTI 216 ,15,22,38. 466) .AND. 

1  TIME .  LE  .TCVTI  216 , 18,23,  8.U6HTHEN 
C  RETURN  I  ••••••••••••SELECTIVE  SEQUENCE  FR0CESSIN6 

796  SE0N-16 

6E61NS-6691 

ENOS-6669 

SEOS< 18  )-SEOS( 16>*1 

60  TO  1 

ENDIF 

ITDAY-1AHD! IDAV , "66FF *  X  > 

SEQS! 19  >-SEOS( 19 )*1 
C  WRITE! (5,62 1ITDAV, IN, IN, SEC 

62  FORMAT! IX ,' •••***•  NO  SEQUENCE  IRI6  FOR  • . 13. ‘ I • , 12 . • t • . 12. 1 1 • ,F6.2 ) 

RETURN 

1  DO  1-1 , NUHT! SEQN ) 

T!  I )-6 
ENDDO 

C<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 

c 

C  CHECK  TO  SEE  IF  X.V  DESI6NATI0N  IS  ON  THE  MENU 

C 

C»»»»>»»>>>>»»»>»»»>»»»»»»»»»»»»»>»»»>»»>»» 

IF! V.6T.284. 1TMEN 

C  HE'S  IN  THE  MENU . LET'S  60  SEE  IF  HE  60T  IT  RI6HT . 

C 

C  FROM  THIS  IRI6  LAST  DETECTION  WAS  ITAR6ETN 

VALID-3 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  HE  TOUCHES  SOMETHING  ON  THE  SCREEN..  NOT  THE  MENU. 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
ITARGETN*6  I  RESET  THE  TARGET  NUMBER  FOR  NEXT  MENU  INPUT  CHECK 

C  TYPE  OPERATOR  INPUT . ‘.K.Y 

DO  S  1*1, IC 

TDAY»IAN0<  TIDAYI I  1 ,  '66FF  '  X  ) 

TIHH*TIH< I I 
TIMM-TIMI I ) 

GTIME-TCVTI TOAY.TIHH.TIMM.TSECI I ) ) 

C  PRINT  166 ,TDAV , TIHH ,TIMH ,TSEC< I ) ,GTIME , I 

166  FORMAT! IX, ' GTIME " ' , 13 , 1 : ' . 12. ' t * . 12. ' : ' .F6.2.5X.F2* .5.5X.I6) 
IF<GTIME.LT. TIME  ICO  TO  5 
TDAY2*  I  AND!  TIDAYI  I  ♦  l  > ,  '66FF  *  X ) 

TIHH2-TIHI 1*1  I 
TIMM2*TIM< 1*1 1 

GGTIME*TCVT<  TDAV2 ,TIHH2.TIMM2,TSEC( 1*1 > I 
IF( GTIME . EO.GGTIME ICO  TO  5 
I F < ABS( GTIME -TIME  I . GT . CERROR ICO  TO  S 
C  TYPE  TIME** .TIME. 1  GTIME* * .GTIME . 1  GGTIME*' , GGTIME 

C  TYPE  *.‘  I*1.!.*  TIME-’ .TIME. ’  GTIME- 1 .GTIME 

11*1 

IF( 1 1 .GT. BEGINS  1 1 1*1-1 

12- BEGINS 

13— 1 

1 4*6 

161  IF< I .LT. BEG  I NS .OR. I .GT.ENDS  ITHEN 

TYPE  GROUND  TRUTH  INDEX  INVALID' 

TYPE  BEGINS*'  .BEGINS, '  ENDS* ‘ , ENDS . '  I*'. I.'  SEON*',SEQN 

RETURN 

ENOIF 

C  IF ( 14. EQ.6 ITYPE  «.'  SEARCH  DOWN  IRIG' 

C  IF! 14. EO. 1 ITYPE  *,'  SEARCH  UP  IRIG' 

DO  111  IA*1 1,12,13 
IZBOX-6 

DO  966  JJJ-1,4 

IFI BOX! JJJ , IA I .HE .61GO  TO  966 
IZBOX«!ZROX+l 
966  CONTINUE 

IF! IZBOX.EQ.4ICO  TO  Ill 
BOXN-ISHFTI TIDAYI IA1.-12! 

C  TYPE  *.'  BOXN-'.BOXN 

IF  <  T( BOXN I . NE .6 1GO  TO  111 
T(BOXNI*IA 

DO  112  ITN«1 , NUMTI SEQN I 

C  TYPE  •.'TIITNl-'.TIITNI,'  SEON- ' , SEON , '  BOXN-'.BOXN. 

C  1'  I A-' , IA, 'NO.  TARGETS* ', NUMTI SEON l.'ITN-'.ITN 

IFITI ITNI.NE.6ITHEN 
GO  TO  112 
ENOIF 
GO  TO  111 
CONTINUE 


112 


60  TO  212 
CONTINUE 
60  TO  214 

IF  WE  6ET  HERE  ALL  TAR6ET  RONES  HAVE  SEEN  LOCATED 
FOR  THIS  OPERATOR  1RI6  SO  LET'S  COMPARE  N.V 
TYPE  •.‘OPERATOR  rNPUT-'.X.Y 
DO  J0J-1.NUMT4SEQN) 

L9-T400J) 

TYPE  •.'  ' , TIDAV4 L9> , ,I',TIHI19),,I,,TIM4L9),'(* , TSEC4 ID) » 

1'  ' , SONI 1 .Lf ) i RON( 2 .L9 ) ,90X4 3 ,L9 > ,BOX(  4 , L9 ) , 

2'  TAR6ET  #■ ' , TARGETS ( JO J . SEON > 

ENDDO 

ACCEPT  «.JOJ 
CONTINUE 

DO  213  ITN-l.NUMT(SEON) 

ERRORPUTN  >-99999. 

ERRORS- .S*FLOAT< 90X4 1 ,T( ITN) >-90X( 2 ,T( ITN  >  >  > 

ERRORV- . S-FL4JAT4 90X4  3 . T4 ITN  > (-90X4  4 , T< I TN  > ) > 

IF(ERRORX.LT. IS. (ERRORX-IS. 

IFIERRORV.LT. IS. >ERR0RV-I5. 

PRINT  1214.X.Y.4  S0X4  K.T(ITN)).K-1,4> 

FORMAT! IX, 'X-' ,F6.2, '  Y-‘.F6.2,'  90X* • . 41 IX. 14 > > 

XLEFT-FLOAT! 90X4 1 .T! ITN  >  >  >-ERRORX 
XRI6HT-FLOAT4  90X4  2.T4 ITN  >  > (-ERRORS 
IF4X.LT.XLEFT.0R. 

1  X.6T.XRI6HTI60  TO  213 
VT0P-FL0AT4 90X4  3 ,T4 ITN  >  > ) -ERRORV 
VS0TT0M-FL0AT4  90X4  4 ,T( ITN  >  >  > -ERROR Y 
IF4V.LT.VT0P.0R. 

1  V .6T . V90TT0M  >60  TO  213 
CX-4  XLEFT-XR16HT (/2  .M 
CV-4  VT0P-V90TT0M )/2 .« 

XERR-ABS4  X-CX ) 

VERR-ABS4  Y-CY ) 

ERR0RP4  ITN  (-SORT!  XERR—2-VERR--2) 

TYPE  -,  1  WE  HAVE  A  GOOD  ONE  HERE  till* 

WE  HAVE  A  6000  ONE  HEREIIIII 

CONTINUE 

XMAXE-99999. 

ITAR6-V 

DO  1TN-1  , NUMTI  SEON ) 

TYPE  -.'  ITN-'. ITN.'  ERR0RP4 ITN >- • . ERRORPt ITN > 

IF 4  ERR0RP4 ITN I.LT.XMAXE (THEN 

ITAR6-ITN 

XMAXE-ERR0RP4 ITN) 

ENOIF 

ENODO 

IF4 IT ARC. 10. DITHEN 

TYPE  -,'  OPERATOR’  D10N"T  HIT  ANYWHERE  NEAR  A  TAR6ET1 1 ' 

TYPE  -,'X-'.X,'  Y-'.Y 

RETURN  I  OPERATOR  DIDN"T  HIT  ANYWHERE  NEAR  A  TAR6ETI I 

ENOIF 

VALID- I 

ITAR6ETN-TAR6ETS4 ITAR6 , SEON ) 

TYPE  -,'X-',X,'  V- ' , V , '  6R0UN0  TRUTH  TAR6ET  NUMBER- ' , ITAR6ETN 


AV 


•  Xi«-  ^  .- 


in 


11*1 

RETURN 

11*2 

214 

IF ( I4.CQ.*)THEN 

11*3 

II-I 

11*4 

12-ENDS 

11*$ 

13-1 

11*6 

14-1 

11*7 

60  TO  1*1 

11** 

ENDIF 

11** 

rm  ‘  •  CAN"T  FIND  AU  TARGETS  IN  GROUND  TRUTH  SEARCH* 

111* 

00  21$  IA-1.NUMTISEQN) 

mi 

MINT  216, lA, THAI 

1112 

21$ 

FORMAT! IX , ' I A- * , 12, *  T( IA )- * . 16  > 

1113 

21$ 

CONTINUE 

1114 

TYPE  ‘WE  REALLY  HAVE  PROSLEMS  IF  THIS  IS  PR1HTE0' 

111$ 

RETURN  IUE  REALLY  HAVE  PROSLEMS  IF  WE  RETURN  FROM  HIRE... 

1116 

C44 

TYPE  •.*  TINE76TIME- ‘ .TIME .GTIME 

1117 

5 

CONTINUE 

111* 

7722 

ITDAV-IAND! I DAY, ‘»*FF ‘X 1 

111* 

PRINT  6, ITDAY, 1H, IM.SEC 

112* 

6 

FORMAT! IX. ••*•••••  NO  GROUND  TRUTH  FOR  * , IS. • 1  * , 12. *  I  * . 12. * « * ,F6.2 > 

1121 

RETURN 

1122 

END 

1123 

SUBROUTINE  CVTT(ST!ME , IDAVC, INC, IMC .SEC  1 

1124 

IF! STIME .6T . 6*. *6*. *6*.  1THEN 

1125 

IOAVC-216 

1126 

TINE-STIME-!6*.a6*.*6*. > 

1127 

INC-INT! TIME/! 6*. *6*. 1) 

1128 

TINE -TIME-!  FLOAT! IHC1*6«.*6*. 1 

1129 

IMC-INT! TIME/6*. 1 

113* 

SEC-TIME-1  FLOAT! IMC 1-6*. 1 

1131 

RETURN 

1132 

ENDIF 

1133 

I0AYC-21I 

1134 

IHC-INT!  STINE/! 6*. *6*. > ) 

1135 

TiME-STINE-! FLOAT!  IHC)a6*.a6*. ) 

1131 

IMC-INT! TINE/6*. 1 

1137 

SEC-TIME-! FLOAT! INC  1*6*.  > 

1139 

RETURN 

1139 

ENO 

40 


L  *»-  ■*» i^T  *"r  MT ^rH 


%K%\vV. 


j 

4 


V 


IRIGUI-FIRST  1*16  TIME  WORD 
IRI6(2)-SECOND  IRIS  TIME  WORD 
IR1C(3>'THIR0  IRIS  TIME  WORD 

IRIS! 4 >*SATE  SIZES  OF  THE  TRACK  SATE  (TOF  AND  DOTTOM) 
IRIGiSl'GATE  SIZES  OF  THE  TRACK  SATE  (LEFT  AND  R!6HT> 

IRIG(t)-18  BITS  THAT  CONTAIN  THE  X  AND  Y  POSITION  OF  THE  CURSOR 

BOXES! 401  IS  THE  ARRAY  THAT  CONTAINS  THE  10  SOX  POSITIONS 
LEFT .RIGHT, UP  AND  DOWN<—  IN  THAT  ORDER 

EXTERNAL  lOt-REAOVILK. IO*_WRITEVBLK.QXRA0 
DOUBLE  PRECISION  QUAD 
INTEGER  SVSSWAITFR, SYSBBINTIM.TTCHAN 
BYTE  C 

INTEGER'S  IRI6(SI,1V(Z).HD.T0,UD.TH,UH,TM.UM.TS1.TS2.US,LS,MS 
INTEGER'S  0R0XS.0R0XS.0S0X7.0D0XD.0R0XSM1.0B0X5P1.0D0X7N1 
INTEGER'S  0B0X7P I ,  IF  1 ■TFLA6 

INTEGER'S  OSOXGMI .OBOX6P I , OROXDMI , OROXRP 1 .OPASS 

PARAMETER  MEMI-10000 

PARAMETER  NOISE'S 

■YTE  IM.IH 

INTEGER'S  I  DAY 

INTEGER'S  TINOEX.OIH 

TINDEX  IS  THE  ARRAY  INDEX  FOR  THE  TARGET  INFORMATION 
BYTE  TAPECNTRL 

INTEGER'S  IO$S( 4 1 .BOXES! 40 > , BL I NKM, I  SAVE!  2 ) 

INTEGER  SVSMIOW.SVStASSIGN.SVSSOIO.SVStLKWSET 
INTEGER  INLOCK( 2 ) , IOLOCK( 2  > 

PARAMETER  TEN>10 
CHARACTER* IS  TIME .TIMED!  TEN ) 

INTEGER'S  TTH( TEN  » ,TUH( TEN  > ,TTM( TEN  > . TUM( TEN ) ,TTS1 ( TEN  > 
INTEGER'S  TUSITENt 
INTEGER'S  PASS 

■YTE  X, V,XV( 2). TOP, BOTTOM. LEFT. RIGHT. TB( 2 >.LR(S> 

EQUIVALENCE (XY(1),X),(XV(2).Y),(IRIG(S),XV( I )) 

EQUIVALENCE! TB(1>, BOTTOM ),(TB(2). TOP). (IRIG( 8 >.TB(1>> 
EQUIVALENCE! LR( 1).LEFTI.(LR(2  > .RIGHT ).(IR!G(4  > .LR( II) 
EQUIVALENCE! IRIG2. IRIG(2 ) ) 

COMMON/CHAN/TTCHAN 
DATA  N/I/ 

DATA  IF  1/0/ 

DATA  TINDEX/0/ ,TF LAC/0/ 

OATA  TTH/10'1/ 

DATA  TUH/10'3/ 

DATA  TTM/0, 0.0.0. 0.1 .0.0, 0.0/ 

OATA  TUM/0 , 1.3. 5. 9.0, 0,0, 0,0/ 

OATA  TTS 1/0, 8,3, 3, 0,3 .0,0, 0,0/ 

DATA  TUS/0.0.0.S,  0,5,0, 0,0,0/ 

DATA  TIMED/ 

1- 0000  00100117.00' , 

2- 0000  00100107.80- , 

3- 0000  00<00I08. 00' , 


/  /  V  V 

W  •_  » 


r .'••.'•VvWv-'V-  Ws-VW  ■’ 


s'Mff  nitvifi.il1 , 

4 'fill  Willili.ff1, 

i'iin  . 

•4 inifin.n'/ 

PARAMETER  STOP-1 
PARAMETER  FF-2 
PARAMETER  FORWARD-4 
PARAMETER  REWIND-* 

ISTATUS-SVSSASSIGNI * XRA#' .CRCHAN, , ) 

IF ( • NOT . ISTATUS ITYPE  ERROR  IN  CRA1  CHANNEL  ASSI6N* 
ISTATUS-SVSSASSIGNI ‘TTRi* .TTCHAN, . ) 
lf( .HOT.ISTATUS) 

ITYPE  ERROR  IN  TTRS  ACOUSTIC  TOUCH  SCREEN  CHANNEL  ASSIGN' 
CALL  OASTTSS 

TYPE  •.'  ENTER  CONTROL  V  WHEN  ALL  DONE  WITH  THtS  TAPE  PASS' 
PASS-1 

IF! PASS. EQ. 1 ITHEN 

OPEN( UNIT-S .NAME- ' TARGETS  1 .DAT' .TYPE-' NEW' .FORM- 'UNFORMATTED' I 
ENDIF 

TAPECNTRL-STOP 

CALL  TAPEREMOT(TAPECNTRL) 

TAPECNTRL -FORWARD 

CALL  TAPEREMOTI TAPECNTRL) 

INLOCKI I I-XLOCI BOXES! 1 > ) 

INLOCK! 2  l-XLOC! BOXESI 44) ) 

K-SVSSLKWSETI INLOCK , IOLOCK, ) 

TYPE  *.'  INLOCKI 1>-  '. INLOCKI 1 >. '  INLOCKI I)-  '. INLOCKI 2) 

TYPE  •.'  IOLOCK!  1  )■  '  .IOLOCK!  1  >.  ‘  I0L0CKI2)-  ’.IOLOCKI2) 

1FI .NOT .KITVPE  UNABLE  TO  LOCK  BOXES  I/O  BUFFER* 

INLOCKI  1 1-XLOCI  IRISH)) 

INLOCKI 2 >-XLOCt IRIG!  B ) ) 

K-SVSSLKWSETI INLOCK . IOLOCK, ) 

TYPE  *.'  INLOCKI!)-  ' , INLOCKI 1 > , '  INLOCKI 2)-  ‘.INLOCKI2) 

TYPE  IOLOCK!  D-  • ,  10L0CKI 1 ) .  ‘  IOLOCK!  2)-  '.IOLOCK!  2) 

IF! .NOT. KITYPE  UNABLE  TO  LOCK  IRIG  I/O  SUFFER' 

K-SVSSOIOWI SVAL! 1 > . XVALI GRCHAN  > .KVALI XLOCI 1OS—REA0VSLK >  > , IOSB , 
1QXRA0.C , I R 1 6 1  1 > iKVAL 112),,,.) 

1 , , IRIG! I >,SVAL( 12). ... ) 

IFI IRIGt  3 ) )CO  TO  1 

WRITEI B.SB7 )X, V . IRIG! 1 ) ■ IRIGI 2  > . IRIGI S ) 

FORMAT! IX. 'X-', 03. IX. 02. IK. OS. IX. OS. I*. OB) 

HO-ISHFTI IRIGI 1 ), -12) 

TO-IANDI ISHFTI IRIGI 1 > . -B > , ' F ' X ) 

UD-IANDI ISHFTI IRJ6I I ),-4), 'F'X) 

Th-IANOI IRIGI 1 ) , ' 3'X) 

UH- ISHFTI IRIGI2I.-12) 

TM-IANOI ISHFTI  IRIGI  2). -B).'7'0> 

UM-IANOI  ISHFTI  IP. IGI  2  )  ,-S ) ,  '  F  '  X  ) 

TSl-IANDl ISHFTI IRIGI 2 ) .-2 ) . ‘ 7 '0> 

I  SAVE  I  1  l-IANDI ISHFTI IRIGI2). 2). 'C'XI 
ISAVEI 2  l-ISHFTI IRIGI3I.-14) 

US-IORI ISAVEI I >, ISAVEI 2 ) ) 

TS2-IANDI ISHFTI IRIGI 3 ) 'F ■ X ) 

LS-IANDI ISHFTI IRIGI 3 ) . -B  I . 'F 'X ) 

MS-IANDI ISHFTI IRIGI 3 ) , -2 > , 'F ' X > 


IRI62-ISHFT!  IR162.-2I 

WRITEIS.BSSSHO.TD.UD.TH.UH.TM.UM.TSl.US.TSZ.LS.HS 
FORMAT!  IX,  ‘ MV  OF  TMC  YEAR-* .31 1 . IX. *  TIME- * ,Z1 . 1 1 . * « 
12Z1 .  ‘  i  ‘  .221 .  ‘ •  ,SZ1 ) 

BOXES! 1 1-0 
BOXES! 2 1-0 
BOXES! 3)-* 

BOXES! 4  1-0 
BOXES! S)-TOF 
BOXES!  33  )-TOF 
BOXES! BI-X 

IF  1  BOXES! S1.LT.0IBOXESIS1-IANDI BOXES! SI. *377*01 

IF! BOXES!  S).LT.l)BOXESIS)-l 

IF! BOXES! S > .6T.2B4  >BOXES( S >-2B4 

BOXES! S  > -BOXES! B ) .OR . '001400*0 

BOXES! SI-BOTTOM 

BOXES! 34 l-BOTTOM 

BOXES! 6  > -BOXES I  51-10 

IF!  BOXES! ().LT.0)BOXES!B>-IANO!BOXES(<). '377*01 

IF! BOXES! C I  .GT. 2B4  >B0XES!S)-2S4 

BOXES!  71-LEFT 

BOXES! 3B1-LEFT 

BOXES! 71-V 

IF! BOXES!  7 1 .LT.01BOXES! 7 1-IAND! BOXES! 7 1 , ' 377'01 

IF! BOXES! 7 1 ,LT. 1 1 BOXES! 71-1 

IF (  BOXES!  7 1 .GT. 242 1B0XESI 7 1-242 

BOXES! SI-RIGHT 

BOXES! 3fi) -RIGHT 

I F  ( BOXES!  S I . LT.0IBOXES! S 1-IANO! BOXES! B I . ' 377 '0 1 

BOXES! SI-BOXES! 7 1*10 

I F ( BOXES!  S 1 . GT . 242 IBOXESI S 1-242 

IFIT1NOEX.EQ.0.AMD.TFLAG.EO.0ITHEN 

I CHARGE F-0 

OBOXB-BOXESIS I 

OBOX7-SOXESI 7 1 

OBOXS-BOXES!  6 1 

OBOXS-BOXES!  S I 

TFLAG-1 

EROIF 

OBOX  SF 1 -OBOXS*NOI SE 
0B0XSM1 -OBOXB-NOI SE 
OSOX  SF 1 -OSOX S*RO! SE 
0S0X6H1-0B0XS-H0ISE 

1 F !  OS0X8MI . CT . BOXE SI B 1 . OR . OBOXBP I . LT . BOXES! S 1 
1 .OR . 0B0X6M 1 . GT . BOXES! B ) .OR . OBOXBF 1 . LT . BOXES!  B 1 1 THEN 
TVFE  TOF  BOTTOM* .OBOXBP! .OBOXSM! .0S0X7P1 . 
1GBQX7M1 , BOXES! B 1 . BOXES! 7 1 .TINDEX 
OBOXS-BOXES!  B) 

OBOXI-BOXES!  8 1 
ICHANGEF-1 
END  IF 

OBOX7M1-OSOX7-ROISE 
0B0X7F 1 -OSOX 7 -NOISE 
OBOX 8M1-0B0XS -NOISE 
OBOXBP I -OBOXB-HOI SE 


IF!OSOX7M1.6T.aOXfS(7>.OR.OBOX7Fl.LT.SOXCSI7> 

I . OR . OSOXBN1 . ST . »OXtS< ■ ) . OR . OBOXSP 1 . LT. BOXES! S ) >TMEN 
TYPE  LIFT  RIGHT' , OBOXSP 1 .OBOXSM1 . 

10S0X7FI .OROX7M1 .BOXES!  8 > ,BOX£S(  7 ) .TINDEX 
OBOX7-BOXESI7) 

OBOXB-BOXESIS) 

ICMAKEF*! 

(HOtF 

IF! 1CMANGEF .EQ. 1 1THEN 
TINOEX-TINDEX*! 

TVFt  TIMEX*'  .TINDCX 

IOAV-HD*l»*TD*lf*UD 
IH*THM0*UH 
IM«TM*1N*UM 

SEC*FLQAT!  TS1*10*US )*FLQATITSi >/ IN. ♦FLOAT! IS  I/Iff. 
t*FLOATI MS )/ 1NNN. 

WRITE! t)! BOXES!  10 1. 10*8.8). IDAV. IN. IM. SEC 
ICHANCEF-f 

WRITEIS.INI ) BOXES! 8 ) . BOXES! 8  > . BOXES! 7  ) , BOXES! 8  > 

FORMAT! 1X.4I2X. 08)) 

ENDIF 

DO  JK*S.4R 
BOXES!  «>-• 

ENDDO 

K  ■  SVSSQIO! XVAL! t  ) .XVAL! 6RCHAN ) .XVAL!  XLOC! 10RJURITEVBLK) ) . 

1 IOSB... BOXES! 1). XVAL! BN).... > 

CONTINUE 
CO  TO  1 
ENO 

SUBROUTINE  OASTTBB 
BYTE  C 

EXTERNAL  IOSLJIEADVBLK. lOBNLNOECNO 

EXTERNAL  TTBBAST 

INTEGER  TTCHAN . SVSBQIO 

CHARACTER* 18  STRING 

BYTE  DATA! 181 

EOUI VAL £ NCE I  DATA . STB I N6 > 

INTEGER*:  IOSBI 4 1 
COMMON /CHAN /TTCHAN 

K  •  SVSBQIO!  XVAL!  B ),  XVAL  I  TTCHAN  >  .XVAL I XLOCI  lOSLJtEAOVBLK ) ) ,  IOSB 
1TTB5AST.C .DATA! 1 ) .XVAL I  18)....) 

IF! .NOT.K)TVFE  *.'  ERROR  IN  OASTTBB  010* 

RETURN 

ENO 

SUBROUTINE  TTBBAST! C> 

BYTE  C 

EXTERNAL  1 0S_RE AD VBL K . 1 OSM_NOECHO . I OSJWR l TE VBLK 

INTEGER  SVSSQI OW , I TCHAN , XRCHAN , I OSM_NOECHO . SVSSSETIMR 

INTEGER  SVSBQIO.SVSSVAITFR.TBCHAN.SVSSBINTIM 

DOUBLE  PRECISION  QUAD 

CHARACTER* IS  TIME 

DATA  TIME/ 'NON  MifftM.NS'/ 

DATA  TIME/'NMN  NUNN INI .«'  / 

I  STATUSES VSSB I NTIM! XDESCR! TIME ). QUAD) 

IF! .NOT . I  STATUS )TYFE  *.'  ERROR  IN  TIME  DELAY' 


ISTATUS-SVSSSET IHR( SVAL ( • > . OUAO , . > 
IFC.NOT.ISTATUSITYPE  *. '  ERROR  IN  TINE  DELAY 
1STATUS-SVSSMAITFR(XVAL(S>> 

IF( .NOT. ISTATUSITYPE  •.*  ERROR  IN  TINE  DELAY 

CALL  OASTTIS 

RETURN 

END 

SUBROUTINE  QXRAJR(C) 

•VTE  C 

TYPE  XRA0  AST  SERVICE  ROUTINE>»»»»' 
RETURN 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  PROGRAM  TAKES  THE  GROUNDN.DAT  FILE  AND  OISPLAVES  THE  BOXES 

C  OUT  ON  THE  HUMAN  FACTORS  HARDWARE  SYNCHRONIZED  WITH  THE  IRIC  TRANSLATOR 

C  ANO/OR  GENERATOR.  FORMATTED  FILES  ARE  NORMALLY  CREATED  WITH  SOXPOS. 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IOS_READVBLK, IOL.WRITEVBLK 
PARAMETER  NP0INTS-6SS2S 
DOUBLE  PRECISION  QUAO 
CHARACTER* 15  NAME , I  SEARCH* 1 
INTEGER  SVSSWAITFR.SYSSBINTIM 

INTEGERS  IRIC!S).1Y!2).HD.TD.UD.TH.UH.TM.UN,TSI.TS2,US.LS.NS 
INTEGERS  OBOXS .OBOXB ,OBOX7 ,060X8. OBOXSM1 .0B0X5P1 .0B0X7M1 
INTE6ER*2  0B0X7P1 , IF1 .TFLAG.TARCINDX! 10) 

I NTEGE  R*2  0B0XBM1 ,  OBOXfiP  1 .  OBOXBM 1 ,  0B0X8P 1  .OPASS ,  BOXN 
BYTE  TAPECNTRL 

INTE6ER*2  IOSBI 4 ), BOXES! 40) .BLINKM. ISAVE( 2  > . IRIG2 
INTEGERS  TOP. BOTTOM. LEFT. RIGHT 
INTEGER  SVSSOIOW.SVSSASSIGN.SVSSaiO.SYSSLKWSET 
INTEGER  INLOCK! 2 ) ,  IOLOCK!  2  ) , XRCHAN 
C  INTEGER*2  PASS, IHR, IMR, IN, IM 

BYTE  IHR, IMR, 1H, IM 
1NTEGER*2  BOX! 4.NP0INTS > 

BYTE  TIH! NPOINTS )  ,TIM( NPOINTS > 

REAL  TSECi NPOINTS) 

INTEGER*2  TIDAY! NPOINTS ), IDAV 

EQUIVALENCE! BOXES! 1 ) .TOP ), i BOXES! 2 > .BOTTOM) . I  BOXES! )> .LEFT ) 

EQUIVALENCE! BOXES! 4 (.RIGHT) 

DATA  N/l/ 

DATA  IF  1/0/ 

DATA  T1NDEX/0/.TFLA6/0/ 

I STATUSES YSSASSIGN! * XRA0 * , XRCHAN > 

IF! .NOT. ISTATUS )TVPE  *.'  ERROR  IN  XRA1  CHANNEL  ASSIGN* 

TYPE  *,*  ENTER  FORMATTED  INPUT  FILE  NAME.!).*.  B0XP0S1 . FTX  >  * 

READ! B, 234 1NAME 
224  FORMAT!  A) 

OPEN! UN  IT-9. NAME-NAME, TYPE-' OLD* .READONLY) 

IC-0 

00  JK-1.40 
BOXES! JK1-0 
ENDOO 

K  -  SVSMIOW!  XVAL!  1 )  .SVALt  XRCHAN  )  ,SVAL(  BLOC!  lOt—WRITEVBLK  > ) , 

1 IOSB . . .BOXES! 1 ) .XVAL I (0  > . . . . ) 

2  READ!  S. 221, END-100) IOAY.  IHR.  IMR, SECR.! BOXES!  I  ),W, 4) 

221  FORMAT! IX ,Z4 . IX . 12 . IX , 12. IX .F7.3 . 41 3X . 14  ) ) 

C  BOXN-ISHFT! IOAY, -12) 

C  WRITE! 6. 34 >BOXH 

C34  FORMAT! IX. Z4) 

IC-1C-1 

BOX! I , IC)*BOXES! 1 > 

BOX! 2 , IC  >*SOXES! 2 ) 

BOX! 3, IC ) -BOXES! 3 ) 

BOX! 4 , IC )*ROXESI 4 ) 

TIH! 1C  l-IHR 


TIM  ICI-IMR 

TSECI  ID-SECR 

TIOAYI IO-IDAV 

WRITE! 6,67 ) IH, IM.SEC 

FORMAT! 1X.12, ' I ' ,12. ' I ' ,F6.2> 

60  TO  2 

TYRE  •. 'TOTAL  NUM6ER  OF  IRICS-'.tC 
L-l 

60  TO  I 

TYRE  HIT  RETURH  TO  COHTIHUE  IRIS  SEARCH' 

REAS! 6, 764)1 SEARCH 
FORMAT! A) 

1*1 

K- S VSSO IOW! SVAL it). SVAL  t  XRCHAH I , XVAL i XLOC ! IOS— REA0V8LK II.IOSR 
I . , IRI6! 1 ) .XVALI 6 ),...) 

WRITE! 6,647 )X,Y. I R 1 6! 1 ). IRI6! 2 ) . IRI6!  3 ) 

FORMAT! IX, 'X*' ,03, 6X. 'Y-'. 03. IX, 06. IX. 06. IX. 06) 

IF! 1RI6I 3  )  >THEN 
L*1 

60  TO  1 
EH6IF 

CALL  IRI6CVT! IR16, IH, IM.SEC > 

LFLA6-6 

TYRE  *.'  IH  , IM  .SEC  •‘.IH.IN.SEC 
IF! IH.LT.TIHIL ) )THEN 

1FIL.6T.DTHEN 

L-L-I 

LFLA6-1 

IF! IH.LT.TIHIL I.AHD.L.6T. I >60  TO  30 
60  TO  I 

EH01F 
60  TO  I 

EH01F 

IFlIH.CQ.TtHIL) >60  TO  23 
IF ( LFLAS . EO. 1  ICO  TO  I 
L-L*l 

IFIL.6T.  IOTHEH 

RRIHT  223, TIHILI. TIMID, TSECIL) 

FORMAT! IX. 'IRI6  HOT  FOUND- ' . 12. ‘ . 12. ' r ' .F6 .2) 

RRIHT  222, IH. IM.SEC 

FORMAT! IX, '  CURRENT  IRIS- ' , 12. • i ■ . 12. • r • ,F6 .2 ) 

IFITIHIL  > .EO.f . AND . TIM! L  ) .E0.6I60  TO  766 
L-l 

60  TO  I 
ENOIF 

IFITIHIL). EO. 0)60  TO  21 
60  TO  26 

IFIIM.LT.  TIMID  >60  TO  I 

IFIIM.HE.TIMIL) >60  TO  21 

IF!  IM.  HE. TIMID  )THEN 

L-L-l 

60  TO  1 

END1F 

IF!  SEC  .LT.  TSECd  )  >60  TO  I 
BOXN-ISHFTI TIOAYI L ) ,  —  1 2 ) 


111 

C 

WRITEI 6 ,34 )BOXN  ,1 

112 

C34 

FORMAT! IX. Z4> 

113 

BOXN-t 1SHFT1 TIOAVI L 1,-12 1-1 1*4 

1U 

C 

TYPE  •» ' BOXN- ' , IOXN.L ,TIDAV(L  > 

1  IS 

c 

PRINT  1234 ■ ROXN ,L ,TIDAV( L  > 

116 

1234 

FORMAT! IX. 'BOXN-- . 13, 2X , I6.2X.06 1 

117 

SOXESI 1+BOXN )-BOX{ 1 .L  ) 

116 

■OXESI Z-BOXN  l-BOXI 2 , L  ) 

Ilf 

■OXES! 3-BOXN  )«BOXI 3,1) 

12* 

•OXESI 4+BOXN >«»0X1 4 ,L ) 

12i 

K  •  SYS tfl 10! XVAL ( 4  > . XVALI XRCHAN >, XVALI XLOCI IOSJURITEVBLK 

122 

1 I0S8 , , .BOXES! 1 ) . XVAL ! 8* ) , . , , > 

123 

L-L*l 

124 

60  TO  1 

12S 

END 

126 

SUBROUTINE  IR16CVT! IR16 . IH, IN. SEC > 

127 

BYTE  IH.IM 

12* 

INTE6ER-2  1RI61 6 ) , HO ,TD .UD ,TH , UH.TM, UM.TSI , TS2 , US . LS . MS 

126 

INTECER-2  I SAVE  1 2 ) 

13* 

C 

HD-ISHFT! IRI6I 1 1,-121 

131 

c 

TD-IANOI ISHFTi 1RI6I 1  >.-*>,  ‘F‘X> 

132 

c 

UD-IANDI ISHFTI IRI61 1  ),-4>, 'F'Xl 

133 

TH-IANO! I R 161  1 >, *3*X) 

134 

UH-1SHFTI IRIS! 2), -12) 

135 

TM-IANDt ISHFTI IRI6! 2 >,-»), ‘7‘0> 

136 

UM-IANDI ISHFTI IRI6!2>,-5). *F'X) 

137 

TS1* I  AND! ISHFTI 1RI6I 2 ) ,-2 ) . • 7 ‘0> 

138 

I  SAVE 1 1 l-IANDI ISHFTI IRI61 2) ,2 ) , 'C ' X ) 

139 

I SAVE  I  2 )• ISHFTI IRIGI 3 ) . -14  > 

14* 

US- IORI I SAVE  1 1 > , I SAVE 12)) 

141 

TS2-IAN0I ISHFTI IRI6I 3 ) ,-!*> , * F 1 X 1 

142 

LS-IANOI ISHFTI IRI61 3 > . -6 ) . 'F ' X  ) 

143 

MS- IANDI ISHFTI IRICI 3 ) , -2 ) . *F *  X ) 

144 

c 

I R1C2- ISHFTI IRI62 , -2 ) 

145 

IH-TH-l*+UH 

146 

IM-TM*1*»UM 

147 

SEC-FLOATI TS1*1»*US ) -FLOAT! TS2 )/l». -FLOAT! LS )/l**. 

148 

1 -FLOAT!  MS >/!***, 

149 

RETURN 

15* 

END 

'J. ^ V/_* Av%*  Va^^aYnI^  ^Vv’.Wl^ 


DESCRIPTION  OF  TARGET  DESIGNATOR/CUEING  HARDWARE 


The  target  designator/operator  cueier  or  "Box  Generator"  has  been 
designed  to  enable  frame-by-frame  target  priority  designation  under  computer 
control  with  video  insertion  built  into  the  unit.  The  following  features 
are  available  for  use. 

a.  Ten  targets  can  be  cued  at  one  time. 

b.  Each  target  can  be  outlined  in  white.  The  whole  area  inside  (Box  8) 
will  be  Increased  in  brightness. 

c.  There  are.  five  levels  of  prioritization  cues  available  for  use  on  the 
first  4  targets. 

1.  The  highest  level  is  when  the  blink  bit  is  enabled  on  Box  One. 

This  will  cause  the  box  surrounding  that  target  to  go  off  and  on. 

2.  There  are  four  levels  of  brightness  that  can  be  set  under  computer 
control.  This  feature  could,  for  example,  be  used  to  indicate  a  level  of  con¬ 
fidence  in  an  automatic  target  selection  process  or  to  indicate  the  relative 
importance  of  different  targets. 

A  block  diagram  of  the  overall  acquisition  system  is  shown  in  Figure  E-l. 
The  box  representing  the  target  designator/cueing  hardware  along  with  its  dif¬ 
ferent  input-output  signals  is  shown  in  the  lower  center  of  the  figure.  The 
following  is  a  description  of  the  use  and  meaning  of  data  words  into  the 
target  designator.  The  VAX-11/780  sends  a  16  bit  word  through  the  DR11-B 
Interface  board  to  the  target  designator  (TD).  The  first  five  high  order  bits 
are  not  used  in  the  TD.  Bit  ten  when  high  sets  blink  bit  to  Box  1.  Box  1  is 
the  only  box  that  can  be  made  to  blink.  Bit  nine  and  bit  eight  control  the 
brightness  of  four  boxes,  one  through  four.  Bit  value  "0  0”  is  just  brighter 
than  the  six  boxes.  Bit  value  "11"  is  the  maximum  brightness  available. 

There  can  only  be  one  box  of  each  brightness.  Bits  seven  through  bit  zero 
defines  box  position  and  box  size.  The  size  and  position  values  are  to  be 
sent  out  in  the  following  order,  left  side,  right  side,  top  side,  and  bottom 
side.  The  range  and  order  of  data  is  shown  on  the  following  page. 


3  12 


Defines  box  size  and  position 
Requires  four  per  box. 

Defines  box  brightness 

High  sets  blink  bit 


<244,  <254 


Values  to  set  blink  and  brightness  are  set  as  part  of  left  value  for  first 
four  boxes.  Blink  is  valid  only  for  first  box.  Bits  eight  and  nine  have  the 
following  values. 

Bit  values  for  use  for  first  four  boxes,  left  side  out  only. 


000  No  blink,  minimum  brightness 
0  0  1 


Oil  No  blink,  max  brightness 
1  0  0  Blink,  box  one  only,  minimum  brightness 


1  1  0 


1  1  1 


Blink,  box  one  only,  max  brightness 


RESET  is  initiated  for  120  Nsec,  from  sync,  interface  control  before  up  to 
forty  unit  values  are  output  from  DR11-B. 


WPS! 


The  following  Is  a  brief  description  of  the  target  designator  block 
diagram. 

a.  Latch  address  generation  (Figure  E-2) 

A  counter  capable  of  storing  more  than  forty  numbers  is  first  reset  at 
beginning  of  sequence.  This  generates  an  address  of  zero.  Data  Is  put  on  the 
lines  and  LOAD  DATA  Is  initiated.  This  loads  data  Into  various  latches  that 
represent  left  side,  blink  and  brightness.  INC.  then  increments  the 
latch  address  counter.  This  is  continued  until  forty  data  words  are 
loaded . 

b.  Data  Reg  and  comparators  (Figure  E-3) 

The  data  registers  are  loaded  under  the  control  of  the  latch  address 
counter.  The  data  register  outputs  are  connected  to  high  speed  comparators 
where  the  values  are  compared  against  pixel  count  and  line  count.  These  com¬ 
parators  give  signals  out  that  indicate  equal-to,  greater-than,  or  less-than, 
for  left,  right,  up  and  down.  The  signals  are  combined  in  high  speed  logic  to 
derive  boxes  that  are  Inserted  into  the  video  to  indicate  target  position, 
size,  and  importance. 

c.  Pixel  and  line  counters  (Figure  E-4) 

The  pixel  and  line  counters  generate  counts  corresponding  to  position 
on  the  TV  screen.  The  composite  blanking  and  vertical  drive  signals  must  be 
phase  locked  to  the  video  signal  of  interest.  These  counter  values  are  then 
sent  to  the  comparators  to  generate  box  size  and  position. 

d.  Brightness  select,  blink,  and  video  insert  (Figure  E-S) 

Four  unique  select  signals  from  left  edge  load  on  the  first  four  boxes 
causes  data  bits  on  eight,  nine,  and  ten  to  cause  blinking  on  one  and  inten¬ 
sity  modulation  on  one  through  four.  These  signals  are  then  fed  into  a  video 
amplifier  where  they  are  inserted  into  the  video. 
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Figure  E-6 .  Continued 
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Figure  E-6.  Continued. 
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VCC  ♦  5V 


Figure  E-9*  Wiring  of  back  plane 


VAX  CPU 


Interface  and  control  unit  block  diagram. 


TRACKER  INTERFACE  AND  CONTROL  UNIT 


A  block  diagram  of  the  Interface  and  control  unit  along  with  its  relation 
to  other  elements  In  the  data  acquisition  system  Is  shown  In  Figure  F-l .  This 
Interface  Is  fabricated  on  three  separate  circuit  cards  —  a  sync  Interface 
control  board,  a  digital  converter/multiplexer  and  latch  board,  and  an  analog 
to  digital  converter/multiplexer.  The  key  element  Is  the  SYNC  interface 
card*  The  SYNC-interface  card  performs  the  basic  functions  listed  below. 

°  Generation  of  SYNC  and  timing  signals  for  the  Box-GEN. 

°  Interfacing  of  data  and  Instructions  output  from  the  computer  to 
the  box-GEN. 

°  Interfacing  of  data  Input  to  the  computer  from  the  box-GEN. 

The  following  signals  are  required  for  the  transfer  of  data  between  the 
DR11-B  and  the  box-GEN. 


Signal 

LOGIC  0  (Inactive) 

LOGIC  1  (Active) 

Cl  (read/write,  word) 

0  VDC 

+5  VDC  (TTL) 

Cycle  Request  B 

0  VDC 

+5  VDC  (TTL) 

Function  1  (read/write) 

0  VDC 

+5  VDC  (TTL) 

Ready 

+5  VDC 

0  VDC  (TTL) 

Busy 

0  VDC 

+5  VDC  (TTL) 

Output  Data  (16  lines) 

0  VDC 

+5  VDC  (TTL) 

Input  Data  (16  lines) 

0  VDC 

+5  VDC  (TTL) 

Box  generator  unidirectional  Interface  to  a  DEC  DRll-B 


Function  1 
Cycle  Request  B 

Ready _ 

Busy 

Cl 


Input  Data 
Output  Data  ^ 


Function  1:  This  signal  is  returned  as  Cl  control  through  two  Inverters 
and  cable  driver.  When  active,  it  indicates  that  the  data  transfer  will  be  an 
Input  to  the  CPU  from  the  Box  GEN.  When  Inactive,  it  Indicates  that  the  data 
transfer  will  be  an  output  from  the  CPU  to  the  Box-GEN. 

Ready:  When  this  signal  becomes  false  (Inactive),  the  DRll-B  is  ready  to 
transfer  data  to/from  the  Box-GEN.  When  Function  1  is  inactive,  the  Box-GEN 
will  respond  with  a  cycle  request  B  to  indicate  it  can  accept  an  output  data 
transfer.  When  function  1  Is  active,  the  Box-GEN  will  respond  with  a  cycle 
request  B  to  Indicate  it  has  an  input  data  word  ready  for  transfer. 


BOX 

GEN 

CONTROL 

LOGIC 


Busy:  This  signal  indicates  that  a  bus  sequence  is  in  progress.  The 
trailing  edge  of  this  signal  is  used  to  initiate  subsequent  output/input  data 
requests.  This  trailing  edge  is  also  used  to  load  output  data  into  the  Box- 
GEN  during  output  data  transfers. 

Output  Data  Bus:  The  16-bit  positive  true  data  bus  output  from  the  com¬ 
puter  is  input  to  card  13  at  right  side  of  page.  Rising  edge  of  "LOAD  DATA" 
and  "INC"  on  card  13  is  used  to  load  data  in  registers  and  increment  address. 
"RESET”  resets  address  register  when  ready  first  goes  low  for  120  nsec. 

Input  Data  Bus:  The  16  bit  positive  true  data  bus  input  to  the  computer 
is  on  card  12  left  side  of  page.  Data  is  latched  and  multiplexed  on  this 
card.  ADC  inputs  come  from  Intercard  cable.  The  falling  edge  of  busy  incre¬ 
ments  two  counters  on  card  13  for  address  generation.  Address  "A”  and  ”B”  are 
used  for  time  code  digital  multiplexing  and  address  ”Qo”  and  "Q2”  are  used  for 
analog  multiplexing  on  input  of  ADC  Card  11.  (Refer  to  timing  diagram  in  read 
mode.)  The  first  start  convert  (SC)  is  generated  during  address  0  and  cycle 
request.  The  last  two  start  converts  begin  at  falling  edge  of  busy  and  the 
last  two  cycle  request  begin  at  end  of  convert  (EOC).  A  BCD  counter  is  used 
to  select  number  of  frame  delays  before  generating  first  cycle  request.  The 
input  to  the  ADC  multiplexer  has  6  buffer  amps.  Each  buffer  amp  has  balance 
and  amplitude  POT  adjustments. 


Figures  F-2  through  F-ll  are  the  schematic  and  timing  diagrams  for  the 
cards  in  the  interface  and  control  unit. 
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Figure  F-3.  Continued. 
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Figure  F-7.  Read  data  format  diagram 


Rif  12  (i.SB  tor  !2  bits)^^ 
Bit  :i  0 
Bit  10  (LSB  for  10  blr i)C& 
Bit  sQ 
Bit  80 
Bit  70 
Bit  6  0 
Bit  >0 
Bit  4  0 
Bit  3  © 
Bit  2  (fi) 
Bit  1  (MSB) A 
Bit  l  (MSB  Q 
Short  Cycle  0 
Dig.  Common* 

+5V  Supply 


CONNECTION  DIAGRAM 
rop  VIEW 


Jjf  Seri. i !  Out 
iJV-l'A  Suppl 
(3p  Bui  lor  In 
1 29  Buffer  Out 


1 

l— — - 

t 

0  ; 3v  suppi*. 

Cain  Ad  just 
^  Analog  Common 

1  A  ~ 

Q  K:  20V  Range 

>k  2 
>k  > 

K  :  i<»V  Range 

i/  /  /  w 

*  /  •  - 

0  B  ip«»I  .,r  o,  |  set 

h.ik 

g>  Comparator  in 

[Comparator 

f - 

i  kuu-k  ~~h  r 


Convert  Command  + 
£fji  Status 
jftciork  Out 

d  .  Out  (+8.  JV ) 
Clock  Kate  Control 


♦Digital  Common  is  internally  connected  to  case.  (ADCH3  and  ADC83C  on!v» 
tlf  an  external  clock  is  used,  connect  the  clock  to  Pin  21  Iconv.  command). 
(See  Figure  2  and  5-3J). 


Binary  (BIN) 
Output 

Analog  Input 
Voltage  Range 
Code 

^ JJes^nation^^ 

One  Least 
Significant 
Bit  (LSB) 


I Defined  As: I 


IN  PIT  VOLTAGE  RANGE  AND  I.SB  VALLES 


- COP - raP  COB* 

or  CTC***  or  CTC***  or  CTC*** 

i6v  Tov  “ 

2*  2*  2* 

78.  limV  39.0hmV  19.53n>V 

19. 33mV  9 . 7  7  n>V  ;.88mV 


19.53n>V 
i .  88mV 


39 .OhmV 
9 . 77mV 


O  to  +  3V 
CSB**' 


l  S .  3 imV 
-3 . 8  8  mV 


Transition  Values  , 

MSB  LSB  +Full  Scale  +10V-2  2LSB  +3V-3  2LSB+2.5V-3  2I.SB+10V-3 

Q00  000****  Scale  0  0  *1 

ou  '  b  '  1U  -Full  Scale  +10V+1  2LSB  -SV+2LSB  -2.5V+1  2 LSB  0+1  21. 

Ill  .  .  .  110  1__  -1  1  \  — 

*C0B-Complementary  Offset  Binary 
**CSB»Coup leaentary  Straight  Binary 

***CTC«CompIeroentary.  Two*s  complement-obtained  by  using  the 
complement  of  the  most  significant  bit  (MSB  is 
available  on  pin  13. 

****  Voltages  given  are  the  nominal  value  for  transition  to  the  code  specitied. 


j+Ful  1  Scale  +10V-3  2 LSB  +3V-J  2LSBk2.3V-3  21.SB+10V-J  2LS  +5V-3  2LSB 
I  Mil  Scale  0  0  j  »  +3V  +2.5V 

|-Ful 1  Scale  +10V+1  2LSB  -SV+2LSB  -2.3V+1  2LSB  (Hi  2LSB  0+1  2LSB 


♦USED  IN  THIS  DESIGN 


Input 

Out 3Ut 

Connect 

Signal 

Code 

Pin  23 

Range 

To  Pin 

+  10V 

COB  or  CTC 

i » 

♦5V 

COB  or  CTC 

22 

♦2 . 3V 

COB  or  CTC 

,  2l 

0  to  t3V 

CSB 

28 

0  to  +  10V 

;  csb 

;  28 

•Connect  to  Pin  2S  or 

input  signal 

1 

as  s 

**The 

input  signal  is 

connected  to 

Pin 

NOTE: 

If  the  buffer  amplifier  is  not  u: 

grounded  (Pin  28). 

TABLE  I 

INPIT  VOI.TW.ES 

,  TRANSITION 

VAL 

Connect 
Pin  23 
To 


Input 
Signal ** 
Open 
Pin  22 
Pin  22 
Open 


For 

But  fc red 
Input* 


For 

Direct  Input 
(See  note) 
Connect 
Input 
S ignal 
To  Pin 


Figure  F-8.  A-D  converter  specifications. 
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Figure  F-10.  Interface  and  control  connector. 


Once  the  ground  truth  on  the  sensor  location  and  the  locations  of  all 
targets  within  the  imagery  has  been  established,  a  variety  of  statistics  can 
be  computed  from  the  operator  responses.  Typically,  the  specific  analysis  and 
formats  for  graphical  outputs  would  be  provided  by  the  user  in  a  user  supplied 
program.  To  illustrate  the  types  of  data  analysis  that  cam  be  performed, 
results  from  one  phase  of  the  FOG-M  experiment  have  been  included  in  this 
appendix.  No  attempt  should  be  made  to  draw  any  conclusions  from  these  speci¬ 
fic  graphs  or  computer  pientents. 

Figures  G-1,  G-2,  and  G-3  show  the  classical  number  of  detections, 
recognitions,  and  identifications  as  a  function  of  range  to  the  target  in  the 
histogram  format.  This  type  of  output  is  available  from  a  high  resolution 
type  of  dot  matrix  printer /plotter .  Figure  G-4  is  a  sample  computer  printout 
of  the  different  types  of  data  and  analysis  used  in  this  particular  experi- 
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Figure  G-4.  Sample  computer  printout 
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